home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update32.zoo / lib / diffc < prev    next >
Encoding:
Text File  |  1993-07-14  |  97.8 KB  |  4,067 lines
  1. ===================================================================
  2. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Changelo,v
  3. retrieving revision 1.94
  4. diff -c -r1.94 Changelo
  5. *** 1.94    1993/05/29 20:26:25
  6. --- Changelo    1993/07/13 17:07:21
  7. ***************
  8. *** 3765,3767 ****
  9. --- 3765,3982 ----
  10.       out soft float stuff knows nothing about long doubles.
  11.   
  12.   ---------------------------- Patchlevel 90 ---------------------------
  13. + 
  14. + _addsubs.cpp, _addsubd.cpp, _div*.cpp, _mul*.cpp:: michal
  15. +     following some discussions with Olaf I rewrote addition routines to
  16. +     conform - at least here - strictly to IEEE spec.  As a matter of fact
  17. +     they even decreased in size. :-)
  18. + 
  19. +     this stuff which I am mailing you right now corrects handling
  20. +     various cased when you add or multiply infinities or NaNs.
  21. +     To my best knowledge this now follows IEEE specifications, although
  22. +     do not quote me on that. :-)  There is also some code rearangement
  23. +     in division routines to reduce unnecessary branching.
  24. + 
  25. +     thanks michal!
  26. + 
  27. + osbind.h:: Markus Gutschke <srb242@GOEDEL.UNI-MUENSTER.DE>
  28. +     stack adjustment amount was wrong. was 6 should be 10. thanks
  29. +     markus.
  30. + 
  31. + osbind.h:: Robert.Wilhelm@Physik.TU-Muenchen.DE
  32. +     wrong stack adjustment for trap_1_wwwll was 16 should have
  33. +     been 14. thanks robert.
  34. + 
  35. + ---------------------------- Patchlevel 91 ---------------------------
  36. + 
  37. + pgrp:: 
  38. +     NEWFILE from mintlib 31
  39. + 
  40. +     unistd.h:
  41. +     Added pause() and sigpause() prototypes.  Changed prototype of
  42. +     setpgrp() to reflect new SysV-compatible version, and make proto
  43. +     apply only if not _POSIX_SOURCE.  Changed prototype of getpgrp() to
  44. +     reflect return type of pid_t (POSIX).  Added setpgid(), setsid(),
  45. +     _bsd_setpgrp() and _bsd_getpgrp() protos.  To access the BSD
  46. +     functions by their usual names, define the macro _BSD_PGRP (and do
  47. +     _not_ define _POSIX_SOURCE) before including unistd.h (for example,
  48. +     gcc -D_BSD_PGRP -c foo.c).
  49. + 
  50. +     pgrp.c:
  51. +     NEW file, for process group related functions. Renamed setpgrp to
  52. +     _bsd_setpgrp().  Created new SysV-compatible setpgrp(). Created
  53. +     new BSD-compatible _bsd_getpgrp() (requires MiNT 1.03 or newer).
  54. +     Created new POSIX setpgid() and setsid().
  55. + 
  56. + 
  57. + putpwent.c::
  58. +     NEW file from mntlib 31
  59. + 
  60. + eprintf.c:: mntlib31
  61. +     throw away status buffer. [move buffer onto stk]
  62. + 
  63. + findfile.c:: mntlib31
  64. +     rehacked by Uwe Ohse, 28.4.93, to support reentrant spawn/popen.
  65. + 
  66. + getpw.c:: mntlib31
  67. +     sync up with what appears to be a rewrite
  68. + 
  69. + grp.c:: mntlib31
  70. +     ditto
  71. + 
  72. + linea.h, grp.h, ioctl.h, mintbind.h, osbind.h, ostruct.h pwd.h ::
  73. +     sync with mntlib 31.
  74. + 
  75. + ---------------------------- Patchlevel 92 ---------------------------
  76. + 
  77. + main.c:: andreas
  78. +     the isatty status should be cleared for dumped programs
  79. + 
  80. + float.h:: andreas
  81. +      update for GCC 2.4/enquire 4.3; the values for
  82. +     LDBL_{EPSILON,MIN,MAX} are computed with bc and verified with enquire.
  83. + 
  84. + support.h: ++warwick@cs.uq.oz.au
  85. +     Remove two occurances of the string "new" for C++ compatibility.
  86. + 
  87. + ctype.h: ++entropy
  88. +     More POSIX namespace monkey business.
  89. + 
  90. + types.h: ++entropy
  91. +     Made lots of stuff #ifndef _POSIX_SOURCE.  Added a few POSIX types
  92. +     (nlink_t, mode_t).
  93. + 
  94. + doprnt.c: ++hohmuth
  95. +     Make a long constant explicit for Pure C.
  96. + 
  97. + setjmp.h: ++entropy
  98. +     Implemented BSD-compatible _setjmp(), _longjmp(), setjmp(), and
  99. +     longjmp().  Selectable by defining _BSD_SOURCE.  BUG: not compatible
  100. +     with __STRICT_ANSI__.
  101. + 
  102. + fcntl.h: ++entropy
  103. +     Add POSIX-required mask FD_CLOEXEC, to select the close-on-exec
  104. +     bit from the flags used in F_GETFD/F_SETFD fcntl().
  105. + 
  106. + unistd.h: ++entropy
  107. +     Do not define prototype for getopt() if _POSIX_SOURCE is defined.
  108. + 
  109. + types.h: ++entropy
  110. +     Do not #include <utime.h> if _POSIX_SOURCE is defined.
  111. + 
  112. + utime.h: ++entropy
  113. +     Added prototype for utime().
  114. + 
  115. + unistd.h: ++entropy
  116. +     Changed BSD process group selection switch from _BSD_PGRP to
  117. +     _BSD_SOURCE.
  118. + 
  119. + stat.h: ++nox, ++entropy
  120. +     Added S_ISCHR(), S_ISDIR(), S_ISBLK(), S_ISREG(), S_ISFIFO(),
  121. +     S_ISMEM(), S_ISLNK(), S_IRWXU, S_IRWXG, S_IRWXO.
  122. +     (btw, is S_IMEM a typo of S_IFMEM or was that intentional?)
  123. + 
  124. + setjmp.cpp, setjmp.h: ++entropy
  125. +     Implemented POSIX sigsetjmp() and setlongjmp().
  126. + 
  127. + fopen.c: ++entropy
  128. +     Always use O_NOCTTY flag in the call to open().
  129. + 
  130. + errno.h, strerror.c: ++entropy
  131. +     Add definition of EIO and ENOSPC.
  132. + 
  133. + support.h: ++entropy
  134. +     Prototype for _isctty() from the MiNT libs.
  135. + 
  136. + ctermid.c, stdio.h: ++entropy
  137. +     NEW file, POSIX ctermid() function.  Prototype and constant L_ctermid
  138. +     in stdio.h.
  139. + 
  140. + doprnt.c: ++dsb@cs.duke.edu
  141. +     HSC choked on a string with implicit newlines (that is,
  142. +         "like
  143. +         this"
  144. +     as GCC is wont to do); I replaced it with explicit "\n"'s and string
  145. +     concatenation.
  146. + 
  147. + fread.c, fwrite.c: ++dsb
  148. +     Some judicious changes from size_t to unsigned long to allow reads
  149. +     and writes of >=64K with HSC.
  150. + 
  151. + getpw.c: ++dsb
  152. +     Minor tweak to work around a foible in HSC.
  153. + 
  154. + compiler.h: ++dsb
  155. +     Changes for HSC v2.00 and higher.
  156. + 
  157. + utime.h: ++dsb
  158. +     Changed "#endif _UTIME_H" to "#endif /* _UTIME_H */" to keep HSC
  159. +     from complaining.
  160. + 
  161. + fcntl.h: ++entropy
  162. +     O_NOCTTY definition (for the MiNT libs).
  163. + 
  164. + pgrp.c: ++entropy
  165. +     Made a more reasonable attempt at setsid().  Kludge a way to
  166. +     "disassociate" the controlling tty by forcing fd -1 to /dev/null.
  167. + 
  168. + fwrite.c:: michal
  169. +     With unbuffered IO fwrite miscounts number of characters written.
  170. + 
  171. + a64l.c, calloc.c, chdir.c, chmod.c, eprintf.c, grp.c,lib.h, linea.c,
  172. + psignal.c, putenv.c, raise.c, random.c, regexp.c, regsup.c, strlwr.c,
  173. + strrev.c, strupr.c, strvar.c, textio.c, timeoday.c, *.h:: entropy
  174. +     sync up with mntlib pl 33. most changes are cleanups.
  175. +     (what does linea2 return?)
  176. + 
  177. + --- sync with mntlib34:
  178. + ffs.c: ++frog
  179. +     Much faster algorithm.
  180. + 
  181. + Makefile, _fixsfsi.cpp, _fltsisf.cpp,
  182. + frexp.cpp, modf.cpp : ++dc4i@br0.hrz.th-darmstadt.de (Stefan Steyer)
  183. +     Bug fixes for SFP004 coprocessor code.  Add sfp004 targets.
  184. + 
  185. + doprnt.c: ++schwab@ls5.informatik.uni-dortmund.de (Andreas Schwab)
  186. +     The decimal precision in a printf format does not include the sign or
  187. +     hex prefix, e.g. printf ("%-2.5d", -18) should print "-00018".
  188. + 
  189. + time.h: ++Frank_Baumgart@pb.maus.de
  190. +     Add prototype of select() to time.h (is there a better place?)
  191. + 
  192. + ctype.h, grp.h, dirent.h, stddef.h, string.h: ++entropy
  193. +     Cleaned up for POSIX.
  194. + 
  195. + wait.h, pwd.h: ++entropy
  196. +     Cleaned up for POSIX (need more work).
  197. + 
  198. + compiler.h, limits.h, stdio.h: ++entropy
  199. +     Set stream limits for POSIX.
  200. + 
  201. + locale.h: ++entropy
  202. +     Define NULL if not already defined (POSIX).
  203. + 
  204. + limits.h: ++entropy
  205. +     Raise value of _POSIX_NGROUPS_MAX from 0 to arbitrary value of
  206. +     512 now that we have a decent getgroups().
  207. + 
  208. + fcntl.h, errno.h: ++entropy
  209. +     Add definition of F_SETLKW to fcntl.h.  Add ELOCKED to errno.h.
  210. +     If Fcntl() gets ELOCKED, return EACCES instead (POSIX).
  211. + 
  212. + unistd.h, stat.h, fcntl.h: ++entropy
  213. +     Moved many prototypes to the correct headers.
  214. + 
  215. + signal.h: ++entropy
  216. +     Fix some violations of POSIX namespace.
  217. + 
  218. + -- end sync
  219. + 
  220. + findfile.c:: michal
  221. +     try to accomodate tos style paths
  222. +     PATH=e:\bin,c:\bin,...
  223. + 
  224. + unistd.h:: ++jrb
  225. +     take out setlinebuf proto, it does'nt really belong here.
  226. + 
  227. + ---------------------------- Patchlevel 93 ---------------------------
  228. ===================================================================
  229. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/Makefile,v
  230. retrieving revision 1.18
  231. diff -c -r1.18 Makefile
  232. *** 1.18    1993/05/21 12:52:49
  233. --- Makefile    1993/07/13 17:07:24
  234. ***************
  235. *** 96,117 ****
  236.   ASFLAGS= -c
  237.   
  238.   # flags to $(CC) when running preprocessor and assembler
  239. ! PPFLAGS= $(SHORT) -P -c
  240.   
  241.   # library targets
  242.   ifdef MINTFLAG
  243.   
  244. ! CLIB= $bmint$g$(ST).olb
  245. ! CLIB020=$bmint$g$(ST)020.olb
  246. ! IIOLIB= $bmiio$g$(ST).olb
  247.   CRT0=$bmcrt0.o
  248.   GCRT0=$bmgcrt0.o
  249.   
  250.   else
  251.   
  252. ! CLIB= $bgnu$g$(ST).olb
  253. ! CLIB020=$bgnu$g$(ST)020.olb
  254. ! IIOLIB= $biio$g$(ST).olb
  255.   CRT0=$bcrt0.o
  256.   GCRT0=$bgcrt0.o
  257.   
  258. --- 96,117 ----
  259.   ASFLAGS= -c
  260.   
  261.   # flags to $(CC) when running preprocessor and assembler
  262. ! PPFLAGS= $(XPFLAGS) $(SHORT) $(SFPFLAG) -P -c
  263.   
  264.   # library targets
  265.   ifdef MINTFLAG
  266.   
  267. ! CLIB= $bmint$g$(SFP)$(ST).olb
  268. ! CLIB020=$bmint$g$(SFP)$(ST)020.olb
  269. ! IIOLIB= $bmiio$g$(SFP)$(ST).olb
  270.   CRT0=$bmcrt0.o
  271.   GCRT0=$bmgcrt0.o
  272.   
  273.   else
  274.   
  275. ! CLIB= $bgnu$g$(SFP)$(ST).olb
  276. ! CLIB020=$bgnu$g$(SFP)$(ST)020.olb
  277. ! IIOLIB= $biio$g$(SFP)$(ST).olb
  278.   CRT0=$bcrt0.o
  279.   GCRT0=$bgcrt0.o
  280.   
  281. ===================================================================
  282. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/PatchLev.h,v
  283. retrieving revision 1.66
  284. diff -c -r1.66 PatchLev.h
  285. *** 1.66    1993/05/29 20:26:29
  286. --- PatchLev.h    1993/07/13 17:07:26
  287. ***************
  288. *** 1,5 ****
  289.   
  290. ! #define    PatchLevel "90"
  291.   
  292.   /*
  293.    *
  294. --- 1,5 ----
  295.   
  296. ! #define    PatchLevel "93"
  297.   
  298.   /*
  299.    *
  300. ===================================================================
  301. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/main.c,v
  302. retrieving revision 1.25
  303. diff -c -r1.25 main.c
  304. *** 1.25    1993/03/16 22:09:03
  305. --- main.c    1993/07/10 16:41:34
  306. ***************
  307. *** 75,81 ****
  308. --- 75,85 ----
  309.       extern int __default_mode__; /* in defmode.c or defined by user */
  310.       int main(int, char **, char **);
  311.   
  312. +     /* clear isatty status for dumped programs */
  313. +     for (i = 0; i < __NHANDLES; i++)
  314. +       __open_stat[i].status = FH_UNKNOWN;
  315.       _start_time = 0;    /* for dumped prgs */
  316. + 
  317.       _start_time = clock();
  318.       _child_runtime = _sys_runtime = 0;
  319.       num_at_exit = 0;
  320. ===================================================================
  321. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/mincl,v
  322. retrieving revision 1.28
  323. diff -c -r1.28 mincl
  324. *** 1.28    1993/05/29 20:26:34
  325. --- mincl    1993/07/10 16:41:35
  326. ***************
  327. *** 38,46 ****
  328.   #
  329.   # other portable stuff
  330.   PORT =  a64l.o alphasor.o abs.o catch.o dirent.o findfile.o ftw.o getpw.o \
  331. !     getlogin.o getopt.o getpass.o ident.o mktemp.o scandir.o strlwr.o \
  332.       strrev.o strupr.o regexp.o regsup.o textio.o random.o obstack.o \
  333. !     il.o ic.o iw.o ig.o ip.o frwbin.o
  334.   #
  335.   # the string library
  336.   
  337. --- 38,46 ----
  338.   #
  339.   # other portable stuff
  340.   PORT =  a64l.o alphasor.o abs.o catch.o dirent.o findfile.o ftw.o getpw.o \
  341. !     getlogin.o getopt.o getpass.o ident.o mktemp.o putpwent.o scandir.o strlwr.o \
  342.       strrev.o strupr.o regexp.o regsup.o textio.o random.o obstack.o \
  343. !     il.o ic.o iw.o ig.o ip.o frwbin.o ctermid.o cuserid.o ffs.o
  344.   #
  345.   # the string library
  346.   
  347. ***************
  348. *** 54,60 ****
  349.   
  350.   UNIX=   access.o chdir.o chmod.o close.o console.o device.o dup.o exec.o fcntl.o \
  351.       fhandle.o fork.o getcwd.o getpid.o getuid.o grp.o ioctl.o isatty.o \
  352. !     link.o lseek.o mkdir.o null.o open.o perror.o pipe.o popen.o psignal.o \
  353.       read.o rename.o rmdir.o \
  354.       sbrk.o sgtty.o signal.o siglist.o sleep.o spawnve.o spawnvp.o stat.o \
  355.       symdir.o symlink.o tchars.o time.o timeoday.o times.o \
  356. --- 54,60 ----
  357.   
  358.   UNIX=   access.o chdir.o chmod.o close.o console.o device.o dup.o exec.o fcntl.o \
  359.       fhandle.o fork.o getcwd.o getpid.o getuid.o grp.o ioctl.o isatty.o \
  360. !     link.o lseek.o mkdir.o null.o open.o perror.o pgrp.o pipe.o popen.o psignal.o \
  361.       read.o rename.o rmdir.o \
  362.       sbrk.o sgtty.o signal.o siglist.o sleep.o spawnve.o spawnvp.o stat.o \
  363.       symdir.o symlink.o tchars.o time.o timeoday.o times.o \
  364. ===================================================================
  365. RCS file: /net/acae127/home/bammi/etc/src/master/atari/lib/signal.c,v
  366. retrieving revision 1.7
  367. diff -c -r1.7 signal.c
  368. *** 1.7    1992/03/28 06:40:31
  369. --- signal.c    1993/07/10 16:41:37
  370. ***************
  371. *** 21,33 ****
  372. --- 21,39 ----
  373.         __Sigfunc s_func;
  374.   };
  375.   /* SIG_DFL == 0, so everything is implicitly set to this */
  376. + /* vector giving which signals are currently blocked from delivery (for TOS) */
  377. + long _sigmask;
  378.   
  379. + /* vector giving an indication of which signals are currently pending (for TOS) */
  380. + long _sigpending;
  381. + 
  382.   static struct sigarray_str    sig_array[NSIG] ;
  383.   
  384.   void
  385.   _init_signal()            /* needed for dumping */
  386.   {
  387.       bzero(sig_array, sizeof(sig_array)); /* for now */
  388. +     _sigpending = _sigmask = 0;
  389.   }
  390.   
  391.   __Sigfunc signal(sig, func)
  392. ===================================================================
  393. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubd.cpp,v
  394. retrieving revision 1.7
  395. diff -c -r1.7 _addsubd.cpp
  396. *** 1.7    1993/05/29 20:28:20
  397. --- _addsubd.cpp    1993/06/04 15:22:06
  398. ***************
  399. *** 11,16 ****
  400. --- 11,20 ----
  401.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  402.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  403.   |
  404. + | Revision 1.3.6 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  405. + |   + ensure that x - x always returns +0, says IEEE,
  406. + |     unless x is Inf or NaN - then return NaN
  407. + |
  408.   | Revision 1.3.5 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  409.   |   + code smoothing
  410.   |
  411. ***************
  412. *** 69,85 ****
  413.       movel    d0,d2        | d2.h = u.sign
  414.       swap    d0
  415.       movew    d0,d2        | d2.l = u.sign
  416. -     bclr    #15,d0        | kill sign bit
  417. -     lsrw    #4,d0
  418.   
  419.       movel    d4,d1        | d1 = v.exp
  420.       andl    d3,d4        | remove exponent from v.mantissa
  421.       swap    d1
  422.       eorw    d1,d2        | d2.l = u.sign ^ v.sign (in bit 15)
  423. !     bclr    #15,d1        | kill sign bit
  424.       lsrw    #4,d1
  425.   |
  426. ! | Now perform testing of NaN And infinities
  427.   |
  428.       movew    #0x7ff,d3
  429.       cmpw    d3,d0
  430. --- 73,98 ----
  431.       movel    d0,d2        | d2.h = u.sign
  432.       swap    d0
  433.       movew    d0,d2        | d2.l = u.sign
  434.   
  435.       movel    d4,d1        | d1 = v.exp
  436.       andl    d3,d4        | remove exponent from v.mantissa
  437.       swap    d1
  438.       eorw    d1,d2        | d2.l = u.sign ^ v.sign (in bit 15)
  439. !     clrb    d2        | we will use the lowest byte as a flag
  440. !     moveq    #15,d3
  441. !     bclr    d3,d0        | kill sign bit u.exp
  442. !     bclr    d3,d1        | kill sign bit v.exp
  443. !     btst    d3,d2        | same sign for u and v?
  444. !     beq    0f
  445. !     cmpl    d0,d1        | different signs - maybe x - x ?
  446. !     bne    0f
  447. !     cmpl    d5,d7
  448. !     seq    d2        | set 'cancellation' flag
  449. ! 
  450. ! 0:    lsrw    #4,d0        | keep here exponents only
  451.       lsrw    #4,d1
  452.   |
  453. ! | Now perform testing of NaN and infinities
  454.   |
  455.       movew    #0x7ff,d3
  456.       cmpw    d3,d0
  457. ***************
  458. *** 87,158 ****
  459.       cmpw    d3,d1
  460.       bne    nospec
  461.       bra    1f
  462. - |    first operand is special
  463. - |
  464. - 0:    cmpw    d0,d1
  465. -     beq    bothspec
  466.   |
  467.   |    u is special
  468.   |
  469.       movel    d7,d0
  470.       orl    d6,d0
  471. !     bne    retnan        | arith with Nan gives always Nan
  472. ! 
  473. !     movel    a0@(8),d0        | copy infinity
  474. !     moveq    #0,d1
  475. !     bra     return
  476.   |
  477.   |    v is special
  478.   |
  479.   1:    movel    d5,d0
  480.       orl    d4,d0
  481.       bne    retnan
  482. !     movel    a0@,d0
  483.       moveq    #0,d1
  484. !     bra    return
  485. ! |
  486. ! |    u and v are both special
  487. ! |
  488. ! bothspec:
  489. !     movel    d7,d0
  490. !     orl    d6,d0
  491. !     orl    d5,d0
  492. !     orl    d4,d0
  493. !     bne    retnan
  494. ! |
  495. ! | Both are infinities Test if cancellation
  496. ! |
  497. ! bothinf:
  498. !     tstw    d2
  499. !     bpl    retinf
  500.   |
  501.   | return a quiet NaN
  502.   |
  503.   retnan: moveql    #-1,d1
  504.       movel    d1,d0
  505. !     bclr    #31,d0        | 0x7fffffff -> d0
  506.       bra    return
  507. - 
  508. - retinf:    moveq    #0,d1
  509. -     movel    #0xffe00000,d0    | we will return #0xfff00000 or #0x7ff00000
  510. -     lslw    #1,d2
  511. -     roxrl   #1,d0        | shift in high bit as given by d2
  512. - return:    moveml    sp@+,d2-d7
  513. -     rts
  514.   |
  515. ! | Ok, no inifinty or Nan involved..
  516.   |
  517. ! nospec:    bset    #20,d6        | restore implied leading "1"
  518.       tstw    d0        | check for zero exponent - no leading "1"
  519.       bne    1f
  520. !     bclr    #20,d6        | no implied leading "1", instead ...
  521. !     addw    #1,d0        | "normalize" exponent
  522.   1:
  523. !     bset    #20,d4        | restore implied leading "1"
  524.       tstw    d1        | check for zero exponent - no leading "1"
  525.       bne    1f
  526. !     bclr    #20,d4        | no implied leading "1", instead ...
  527. !     addw    #1,d1        | "normalize" exponent
  528.   1:
  529.       moveq    #0,d3        | init sticky register
  530.       negw    d1        | d1 = u.exp - v.exp
  531. --- 100,154 ----
  532.       cmpw    d3,d1
  533.       bne    nospec
  534.       bra    1f
  535.   |
  536.   |    u is special
  537.   |
  538. + 0:    tstb    d2        
  539. +     bne    retnan        | cancellation of specials -> NaN
  540.       movel    d7,d0
  541.       orl    d6,d0
  542. !     bne    retnan        | arith with Nan gives always NaN
  543. !     addqw    #8,a0        | adding to an address propagates anyway
  544. !     cmpw    d3,d1
  545. !     bne    0f        | skip check for NaN if v not special
  546.   |
  547.   |    v is special
  548.   |
  549.   1:    movel    d5,d0
  550.       orl    d4,d0
  551.       bne    retnan
  552. ! 0:    movel    a0@,d0        | copy infinity
  553.       moveq    #0,d1
  554. !     bra     return
  555.   |
  556.   | return a quiet NaN
  557.   |
  558.   retnan: moveql    #-1,d1
  559.       movel    d1,d0
  560. !     lsrl    #1,d0        | 0x7fffffff -> d0
  561.       bra    return
  562.   |
  563. ! | Ok, no inifinty or NaN involved..
  564.   |
  565. ! nospec: tstb    d2
  566. !     beq    0f
  567. !     moveq    #0,d0        | x - x hence we always return +0
  568. !     movel    d0,d1
  569. ! return:    moveml    sp@+,d2-d7
  570. !     rts
  571. ! 
  572. ! 0:    moveq    #20,d3
  573. !     bset    d3,d6        | restore implied leading "1"
  574.       tstw    d0        | check for zero exponent - no leading "1"
  575.       bne    1f
  576. !     bclr    d3,d6        | no implied leading "1", instead ...
  577. !     addqw    #1,d0        | "normalize" exponent
  578.   1:
  579. !     bset    d3,d4        | restore implied leading "1"
  580.       tstw    d1        | check for zero exponent - no leading "1"
  581.       bne    1f
  582. !     bclr    d3,d4        | no implied leading "1", instead ...
  583. !     addqw    #1,d1        | "normalize" exponent
  584.   1:
  585.       moveq    #0,d3        | init sticky register
  586.       negw    d1        | d1 = u.exp - v.exp
  587. ***************
  588. *** 174,184 ****
  589.   | most significant digit, while gaining an additional digit for
  590.   | rounding.
  591.   |
  592. !     moveql  #1,d3
  593.   2:    addl    d7,d7
  594.       addxl    d6,d6
  595. !     subw    #1,d0        | decrement exponent
  596. !     subw    #1,d1        | decrement counter
  597.       dbeq    d3,2b
  598.       moveq    #0,d3
  599.   |
  600. --- 170,180 ----
  601.   | most significant digit, while gaining an additional digit for
  602.   | rounding.
  603.   |
  604. !     moveq    #1,d3
  605.   2:    addl    d7,d7
  606.       addxl    d6,d6
  607. !     subqw    #1,d0        | decrement exponent
  608. !     subqw    #1,d1        | decrement counter
  609.       dbeq    d3,2b
  610.       moveq    #0,d3
  611.   |
  612. ***************
  613. *** 192,198 ****
  614.       swap    d5
  615.       clrw    d4
  616.       swap    d4
  617. !     subw    #16,d1
  618.       bra    3b
  619.   
  620.   0:    moveb   d5,d2        | use d2.b as scratch
  621. --- 188,195 ----
  622.       swap    d5
  623.       clrw    d4
  624.       swap    d4
  625. !     subqw    #8,d1
  626. !     subqw    #8,d1
  627.       bra    3b
  628.   
  629.   0:    moveb   d5,d2        | use d2.b as scratch
  630. ***************
  631. *** 206,216 ****
  632.       tstw    d2        | are the signs equal ?
  633.       bpl    6f        | yes, no negate necessary
  634.   |
  635. ! | negate secand mantissa. One has to check the sticky word in order
  636.   | to correct the twos complement.
  637.   |
  638.       tstw    d3        |
  639. !     beq     9f        | No cerrection necessary
  640.       moveq    #0,d1
  641.       addql   #1,d5
  642.       addxl   d1,d4
  643. --- 203,213 ----
  644.       tstw    d2        | are the signs equal ?
  645.       bpl    6f        | yes, no negate necessary
  646.   |
  647. ! | negate second mantissa. One has to check the sticky word in order
  648.   | to correct the twos complement.
  649.   |
  650.       tstw    d3        |
  651. !     beq     9f        | No correction necessary
  652.       moveq    #0,d1
  653.       addql   #1,d5
  654.       addxl   d1,d4
  655. ***************
  656. *** 226,232 ****
  657.   
  658.       negl    d7
  659.       negxl    d6
  660. !     notl    d2        |     switch sign
  661.   7:
  662.       movel    d6,d4        | move result for normalization
  663.       movel    d7,d5
  664. --- 223,229 ----
  665.   
  666.       negl    d7
  667.       negxl    d6
  668. !     notl    d2        | switch sign
  669.   7:
  670.       movel    d6,d4        | move result for normalization
  671.       movel    d7,d5
  672. ===================================================================
  673. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_addsubs.cpp,v
  674. retrieving revision 1.7
  675. diff -c -r1.7 _addsubs.cpp
  676. *** 1.7    1993/05/29 20:28:21
  677. --- _addsubs.cpp    1993/06/04 15:22:08
  678. ***************
  679. *** 12,17 ****
  680. --- 12,19 ----
  681.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  682.   |
  683.   | Revision 1.3.5 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  684. + |   + ensure that x - x always returns +0, says IEEE,
  685. + |     unless x is Inf or NaN - then return NaN
  686.   |   + code smoothing
  687.   |
  688.   | patched by Olaf Flebbe (flebbe@tat.physik.uni-tuebingen.de)
  689. ***************
  690. *** 71,87 ****
  691.       swap    d0
  692.       movew    d0,d2        | d2 = u.sign
  693.       andl    d3,d5        | remove exponent from u.mantissa
  694. -     bclr    #15,d0        | kill sign bit
  695. -     lsrw    #7,d0
  696.   
  697.       movel    d4,d1        | d1 = v.exp
  698.       andl    d3,d4        | remove exponent from v.mantissa
  699.       swap    d1
  700.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  701. !     bclr    #15,d1        | kill sign bit
  702.       lsrw    #7,d1
  703.   |
  704. ! | Now perform testing of NaN And infinities
  705.   |
  706.       moveq    #-1,d3
  707.       cmpb    d3,d0
  708. --- 73,96 ----
  709.       swap    d0
  710.       movew    d0,d2        | d2 = u.sign
  711.       andl    d3,d5        | remove exponent from u.mantissa
  712.   
  713.       movel    d4,d1        | d1 = v.exp
  714.       andl    d3,d4        | remove exponent from v.mantissa
  715.       swap    d1
  716.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  717. !     clrb    d2        | we will use the lowest byte as a flag
  718. !     moveq    #15,d3
  719. !     bclr    d3,d1        | kill sign bit u.exp
  720. !     bclr    d3,d0        | kill sign bit u.exp
  721. !     btst    d3,d2        | same sign for u and v?
  722. !     bne    0f
  723. !     cmpl    d0,d1        | different signs - maybe x - x ?
  724. !     seq    d2        | set 'cancellation' flag
  725. ! 0:
  726. !     lsrw    #7,d0        | keep here exponents only
  727.       lsrw    #7,d1
  728.   |
  729. ! | Now perform testing of NaN and infinities
  730.   |
  731.       moveq    #-1,d3
  732.       cmpb    d3,d0
  733. ***************
  734. *** 89,151 ****
  735.       cmpb    d3,d1
  736.       bne    nospec
  737.       bra    1f
  738. - |    first operand is special
  739.   |
  740. - 0:    cmpb    d0,d1
  741. -     beq    bothspec
  742. - |
  743.   |    u is special
  744.   |
  745.       tstl    d5
  746. !     bne    retnan        | arith with Nan gives always Nan
  747.   
  748. !     movel    a0@(4),d0    | copy infinity with its sign
  749. !     bra     return
  750.   |
  751.   |    v is special
  752.   |
  753.   1:    tstl    d4
  754.       bne    retnan
  755. !     movel    a0@,d0
  756.       bra    return
  757.   |
  758. - |    u and v are both special
  759. - |
  760. - bothspec:
  761. -     movel    d5,d0
  762. -     orl    d4,d0
  763. -     bne    retnan
  764. - |
  765. - | Both are infinities Test if cancellation
  766. - |
  767. - bothinf:
  768. -     tstw    d2
  769. -     bpl    retinf
  770. - |
  771.   | return a quiet NaN
  772.   |
  773.   retnan: moveql    #-1,d0
  774.       lsrl    #1,d0        | 0x7fffffff -> d0
  775.       bra    return
  776. - 
  777. - retinf: movel    #0xff000000,d0  | we will return #0xff800000 or #0x7f800000
  778. -     lslw    #1,d2
  779. -     roxrl   #1,d0        | shift in high bit as given by d2
  780. - return:    moveml    sp@+,d2-d5
  781. -     rts
  782.   |
  783. ! | Ok, no inifinty or Nan involved..
  784.   |
  785. ! nospec:    bset    #23,d5        | restore implied leading "1"
  786.       tstw    d0        | check for zero exponent - no leading "1"
  787.       bne    1f
  788. !     bclr    #23,d5        | remove it
  789.       addqw    #1,d0        | "normalize" exponent
  790.   1:
  791. !     bset    #23,d4        | restore implied leading "1"
  792.       tstw    d1        | check for zero exponent - no leading "1"
  793.       bne    1f
  794. !     bclr    #23,d4        | remove it
  795.       addqw    #1,d1        | "normalize" exponent
  796.   1:
  797.       moveq    #0,d3        | (put initial zero rounding bits in d3)
  798. --- 98,147 ----
  799.       cmpb    d3,d1
  800.       bne    nospec
  801.       bra    1f
  802.   |
  803.   |    u is special
  804.   |
  805. + 0:    tstb    d2        
  806. +     bne    retnan        | cancellation of specials -> NaN
  807.       tstl    d5
  808. !     bne    retnan        | arith with Nan gives always NaN
  809.   
  810. !     addqw    #4,a0        | here is an infinity
  811. !     cmpb    d3,d1
  812. !     bne    0f        | skip check for NaN if v not special
  813.   |
  814.   |    v is special
  815.   |
  816.   1:    tstl    d4
  817.       bne    retnan
  818. ! 0:    movel    a0@,d0
  819.       bra    return
  820.   |
  821.   | return a quiet NaN
  822.   |
  823.   retnan: moveql    #-1,d0
  824.       lsrl    #1,d0        | 0x7fffffff -> d0
  825.       bra    return
  826.   |
  827. ! | Ok, no inifinty or NaN involved..
  828.   |
  829. ! nospec:    tstb    d2
  830. !     beq    0f
  831. !     moveq    #0,d0        | x - x hence we always return +0
  832. ! return:    moveml    sp@+,d2-d5
  833. !     rts
  834. ! 
  835. ! 0:    moveq    #23,d3
  836. !     bset    d3,d5        | restore implied leading "1"
  837.       tstw    d0        | check for zero exponent - no leading "1"
  838.       bne    1f
  839. !     bclr    d3,d5        | remove it
  840.       addqw    #1,d0        | "normalize" exponent
  841.   1:
  842. !     bset    d3,d4        | restore implied leading "1"
  843.       tstw    d1        | check for zero exponent - no leading "1"
  844.       bne    1f
  845. !     bclr    d3,d4        | remove it
  846.       addqw    #1,d1        | "normalize" exponent
  847.   1:
  848.       moveq    #0,d3        | (put initial zero rounding bits in d3)
  849. ***************
  850. *** 179,185 ****
  851.       orw    d4,d3        | set rounding bits
  852.       clrw    d4
  853.       swap    d4
  854. !     subw    #16,d1
  855.           bra     4f
  856.   
  857.   0:    moveb   d4,d2
  858. --- 175,182 ----
  859.       orw    d4,d3        | set rounding bits
  860.       clrw    d4
  861.       swap    d4
  862. !     subqw    #8,d1
  863. !     subqw    #8,d1
  864.           bra     4f
  865.   
  866.   0:    moveb   d4,d2
  867. ===================================================================
  868. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_divdf3.cpp,v
  869. retrieving revision 1.7
  870. diff -c -r1.7 _divdf3.cpp
  871. *** 1.7    1993/05/29 20:28:23
  872. --- _divdf3.cpp    1993/06/04 15:22:10
  873. ***************
  874. *** 82,95 ****
  875.       andl    d3,d4        | remove exponent from u.mantissa
  876.       swap    d0
  877.       movew    d0,d2        | d2 = u.sign
  878. -     bclr    #15,d0        | kill sign bit
  879. -     lsrw    #4,d0
  880.   
  881.       movel    d6,d1        | d1 = v.exp
  882.       andl    d3,d6        | remove exponent from v.mantissa
  883.       swap    d1
  884.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  885. !     bclr    #15,d1        | kill sign bit
  886.       lsrw    #4,d1
  887.   |
  888.   |
  889. --- 82,97 ----
  890.       andl    d3,d4        | remove exponent from u.mantissa
  891.       swap    d0
  892.       movew    d0,d2        | d2 = u.sign
  893.   
  894.       movel    d6,d1        | d1 = v.exp
  895.       andl    d3,d6        | remove exponent from v.mantissa
  896.       swap    d1
  897.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  898. ! 
  899. !     moveq    #15,d3
  900. !     bclr    d3,d1        | kill sign bit
  901. !     bclr    d3,d0        | kill sign bit
  902. !     lsrw    #4,d0
  903.       lsrw    #4,d1
  904.   |
  905.   |
  906. ***************
  907. *** 111,170 ****
  908.       movel    d7,d3
  909.       orl    d6,d3
  910.       bne    nospec
  911. !     bra    retinf        | x/0 -> +/- Inf
  912.   
  913.   0:    orl    d5,d4        | u == NaN ?
  914.       bne    retnan        | NaN/ x
  915. !     cmpw    #0x7ff,d1
  916.       beq    retnan        | Inf/Inf or Inf/NaN
  917.       bra    retinf        | Inf/x | x != Inf && x != NaN
  918.   
  919.   1:    orl    d7,d6
  920.       bne    retnan        | x/NaN
  921. !     bra    retzero        | x/Inf -> +/- 0
  922.   
  923.   2:    tstw    d1
  924.       bne    retzero        | 0/x ->+/- 0
  925.       orl    d5,d4
  926.       bne    retzero        | 0/x
  927. !     bra    retnan        | 0/0
  928. ! |
  929. ! |    Return Infinity with correct sign
  930. ! |
  931. ! retinf:    moveq    #0,d1
  932. !     movel    #0xffe00000,d0
  933. !     lslw    #1,d2
  934. !     roxrl   #1,d0        | shift in high bit as given by d2
  935. ! return:    moveml    sp@+,d2-d7
  936. !     rts
  937.   |
  938.   |    Return NaN
  939.   |
  940.   retnan: moveql    #-1,d1
  941.       movel    d1,d0
  942. !     bclr    #31,d0        | 0x7fffffff -> d0
  943. !     bra    return
  944. ! |
  945. ! |    Return correct signed zero
  946. ! |
  947. ! retzero:moveq    #0,d0        | zero destination
  948. !     movel    d0,d1
  949. !     lslw    #1,d2        | we need an extension bit
  950. !     roxrl    #1,d0
  951.       bra    return
  952.   |
  953.   |    End of special handling
  954.   |
  955. ! nospec:    bset    #20,d4        | restore implied leading "1"
  956.       tstw    d0        | check for zero exponent - no leading "1"
  957.       bne    1f
  958. !     bclr    #20,d4        | remove it
  959.       addw    #1,d0        | "normalize" exponent
  960.   
  961. ! 1:    bset    #20,d6        | restore implied leading "1"
  962.       tstw    d1        | check for zero exponent - no leading "1"
  963.       bne    1f
  964. !     bclr    #20,d6        | remove it
  965.   0:    addw    #1,d1        | "normalize" exponent
  966.   
  967.   1:    movew    d2,a0        | save sign
  968. --- 113,173 ----
  969.       movel    d7,d3
  970.       orl    d6,d3
  971.       bne    nospec
  972. ! |    bra    retinf        | x/0 -> +/- Inf
  973. ! |
  974. ! |    Return Infinity with correct sign
  975. ! |
  976. ! retinf:    moveq    #0,d1
  977. !     movel    #0xffe00000,d0
  978. !     lslw    #1,d2
  979. !     roxrl   #1,d0        | shift in high bit as given by d2
  980. ! return:    moveml    sp@+,d2-d7
  981. !     rts
  982.   
  983.   0:    orl    d5,d4        | u == NaN ?
  984.       bne    retnan        | NaN/ x
  985. !     cmpw    d3,d1
  986.       beq    retnan        | Inf/Inf or Inf/NaN
  987.       bra    retinf        | Inf/x | x != Inf && x != NaN
  988.   
  989.   1:    orl    d7,d6
  990.       bne    retnan        | x/NaN
  991. ! |    bra    retzero        | x/Inf -> +/- 0
  992. ! |
  993. ! |    Return correct signed zero
  994. ! |
  995. ! retzero:moveq    #0,d0        | zero destination
  996. !     movel    d0,d1
  997. !     lslw    #1,d2        | we need an extension bit
  998. !     roxrl    #1,d0
  999. !     bra    return
  1000.   
  1001.   2:    tstw    d1
  1002.       bne    retzero        | 0/x ->+/- 0
  1003.       orl    d5,d4
  1004.       bne    retzero        | 0/x
  1005. ! |    bra    retnan        | 0/0
  1006.   |
  1007.   |    Return NaN
  1008.   |
  1009.   retnan: moveql    #-1,d1
  1010.       movel    d1,d0
  1011. !     lsrl    #1,d0        | 0x7fffffff -> d0
  1012.       bra    return
  1013.   |
  1014.   |    End of special handling
  1015.   |
  1016. ! nospec:    moveq    #20,d3
  1017. !     bset    d3,d4        | restore implied leading "1"
  1018.       tstw    d0        | check for zero exponent - no leading "1"
  1019.       bne    1f
  1020. !     bclr    d3,d4        | remove it
  1021.       addw    #1,d0        | "normalize" exponent
  1022.   
  1023. ! 1:    bset    d3,d6        | restore implied leading "1"
  1024.       tstw    d1        | check for zero exponent - no leading "1"
  1025.       bne    1f
  1026. !     bclr    d3,d6        | remove it
  1027.   0:    addw    #1,d1        | "normalize" exponent
  1028.   
  1029.   1:    movew    d2,a0        | save sign
  1030. ===================================================================
  1031. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_divsf3.cpp,v
  1032. retrieving revision 1.7
  1033. diff -c -r1.7 _divsf3.cpp
  1034. *** 1.7    1993/05/29 20:28:26
  1035. --- _divsf3.cpp    1993/06/04 15:22:12
  1036. ***************
  1037. *** 82,102 ****
  1038.       andl    d3,d4        | remove exponent from u.mantissa
  1039.       swap    d0
  1040.       movew    d0,d2        | d2 = u.sign
  1041. -     bclr    #15,d0        | kill sign bit
  1042. -     lsrw    #7,d0
  1043.   
  1044.       movel    d5,d1        | d1 = v.exp
  1045.       andl    d3,d5        | remove exponent from v.mantissa
  1046.       swap    d1
  1047.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1048. !     bclr    #15,d1        | kill sign bit
  1049.       lsrw    #7,d1
  1050.   |
  1051.   |
  1052.   |
  1053.       moveq    #-1,d3
  1054.       cmpb    d3,d0        | comparison with #0xff
  1055. !     beq    0f        |u == NaN || u== Inf
  1056.       cmpb    d3,d1
  1057.       beq    1f        | v == NaN || v == Inf
  1058.       tstb    d0
  1059. --- 82,104 ----
  1060.       andl    d3,d4        | remove exponent from u.mantissa
  1061.       swap    d0
  1062.       movew    d0,d2        | d2 = u.sign
  1063.   
  1064.       movel    d5,d1        | d1 = v.exp
  1065.       andl    d3,d5        | remove exponent from v.mantissa
  1066.       swap    d1
  1067.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1068. ! 
  1069. !     moveq    #15,d3
  1070. !     bclr    d3,d0        | kill sign bit
  1071. !     bclr    d3,d1        | kill sign bit
  1072. !     lsrw    #7,d0
  1073.       lsrw    #7,d1
  1074.   |
  1075.   |
  1076.   |
  1077.       moveq    #-1,d3
  1078.       cmpb    d3,d0        | comparison with #0xff
  1079. !     beq    0f        | u == NaN || u== Inf
  1080.       cmpb    d3,d1
  1081.       beq    1f        | v == NaN || v == Inf
  1082.       tstb    d0
  1083. ***************
  1084. *** 115,131 ****
  1085.       bne    retnan        | NaN/ x
  1086.       cmpb    d3,d1
  1087.       beq    retnan        | Inf/Inf or Inf/NaN
  1088. !     bra    retinf        | Inf/x | x != Inf && x != NaN
  1089. ! 
  1090. ! 1:    tstl    d5
  1091. !     bne    retnan        | x/NaN
  1092. !     bra    retzero        | x/Inf -> +/- 0
  1093. ! 
  1094. ! 2:    tstw    d1
  1095. !     bne    retzero        | 0/x ->+/- 0
  1096. !     tstl    d4
  1097. !     bne    retzero        | 0/x
  1098. !     bra    retnan        | 0/0
  1099.   |
  1100.   |    Return Infinity with correct sign
  1101.   |
  1102. --- 117,123 ----
  1103.       bne    retnan        | NaN/ x
  1104.       cmpb    d3,d1
  1105.       beq    retnan        | Inf/Inf or Inf/NaN
  1106. ! |    bra    retinf        | Inf/x | x != Inf && x != NaN
  1107.   |
  1108.   |    Return Infinity with correct sign
  1109.   |
  1110. ***************
  1111. *** 134,145 ****
  1112.       roxrl   #1,d0        | shift in high bit as given by d2
  1113.   return:    moveml    sp@+,d2-d5
  1114.       rts
  1115. ! |
  1116. ! |    Return NaN
  1117. ! |
  1118. ! retnan: movel    d3,d0        | d3 contains 0xffffffff
  1119. !     bclr    #31,d0
  1120. !     bra    return
  1121.   |
  1122.   |    Return correct signed zero
  1123.   |
  1124. --- 126,135 ----
  1125.       roxrl   #1,d0        | shift in high bit as given by d2
  1126.   return:    moveml    sp@+,d2-d5
  1127.       rts
  1128. ! 
  1129. ! 1:    tstl    d5
  1130. !     bne    retnan        | x/NaN
  1131. ! |    bra    retzero        | x/Inf -> +/- 0
  1132.   |
  1133.   |    Return correct signed zero
  1134.   |
  1135. ***************
  1136. *** 147,168 ****
  1137.       lslw    #1,d2        | set X bit accordingly
  1138.       roxrl    #1,d0
  1139.       bra    return
  1140.   |
  1141.   |    End of special handling
  1142.   |
  1143. ! nospec:    bset    #23,d4        | restore implied leading "1"
  1144.       tstw    d0        | check for zero exponent - no leading "1"
  1145.       bne    1f
  1146. !     bclr    #23,d4        | remove it
  1147.       addw    #1,d0        | "normalize" exponent
  1148.   1:
  1149.       tstl    d4
  1150.       beq    retzero        | dividing zero
  1151.   
  1152. !     bset    #23,d5        | restore implied leading "1"
  1153.       tstw    d1        | check for zero exponent - no leading "1"
  1154.       bne    1f
  1155. !     bclr    #23,d5        | remove it
  1156.       addw    #1,d1        | "normalize" exponent
  1157.   1:
  1158.   # ifndef ERROR_CHECK
  1159. --- 137,171 ----
  1160.       lslw    #1,d2        | set X bit accordingly
  1161.       roxrl    #1,d0
  1162.       bra    return
  1163. + 
  1164. + 2:    tstw    d1
  1165. +     bne    retzero        | 0/x ->+/- 0
  1166. +     tstl    d4
  1167. +     bne    retzero        | 0/x
  1168. + |    bra    retnan        | 0/0
  1169. + |
  1170. + |    Return NaN
  1171. + |
  1172. + retnan: movel    d3,d0        | d3 contains 0xffffffff
  1173. +     lsrl    #1,d0
  1174. +     bra    return
  1175.   |
  1176.   |    End of special handling
  1177.   |
  1178. ! nospec:    moveq    #23,d3
  1179. !     bset    d3,d4        | restore implied leading "1"
  1180.       tstw    d0        | check for zero exponent - no leading "1"
  1181.       bne    1f
  1182. !     bclr    d3,d4        | remove it
  1183.       addw    #1,d0        | "normalize" exponent
  1184.   1:
  1185.       tstl    d4
  1186.       beq    retzero        | dividing zero
  1187.   
  1188. !     bset    d3,d5        | restore implied leading "1"
  1189.       tstw    d1        | check for zero exponent - no leading "1"
  1190.       bne    1f
  1191. !     bclr    d3,d5        | remove it
  1192.       addw    #1,d1        | "normalize" exponent
  1193.   1:
  1194.   # ifndef ERROR_CHECK
  1195. ***************
  1196. *** 171,181 ****
  1197.   # endif    ERROR_CHECK
  1198.   
  1199.       subw    d1,d0        | subtract exponents,
  1200. !     addw    #BIAS4-8+1,d0    |  add bias back in, account for shift
  1201. !     addw    #34,d0        |  add loop offset, +2 for extra rounding bits
  1202. !                 |   for denormalized numbers (2 implied by dbra)
  1203.       movew    #27,d1        | bit number for "implied" pos (+4 for rounding)
  1204. !     moveql    #-1,d3        |  zero quotient (for speed a one''s complement)
  1205.       subl    d5,d4        | initial subtraction, u = u - v
  1206.   2:
  1207.       btst    d1,d3        | divide until 1 in implied position
  1208. --- 174,184 ----
  1209.   # endif    ERROR_CHECK
  1210.   
  1211.       subw    d1,d0        | subtract exponents,
  1212. !     addw    #BIAS4-8+1,d0    | add bias back in, account for shift
  1213. !     addw    #34,d0        | add loop offset, +2 for extra rounding bits
  1214. !                 | for denormalized numbers (2 implied by dbra)
  1215.       movew    #27,d1        | bit number for "implied" pos (+4 for rounding)
  1216. !     moveql    #-1,d3        | zero quotient (for speed a one''s complement)
  1217.       subl    d5,d4        | initial subtraction, u = u - v
  1218.   2:
  1219.       btst    d1,d3        | divide until 1 in implied position
  1220. ===================================================================
  1221. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_fixsfsi.cpp,v
  1222. retrieving revision 1.4
  1223. diff -c -r1.4 _fixsfsi.cpp
  1224. *** 1.4    1993/05/29 20:28:30
  1225. --- _fixsfsi.cpp    1993/07/13 17:03:36
  1226. ***************
  1227. *** 28,33 ****
  1228. --- 28,34 ----
  1229.   1:    cmpiw    #0x8900,a0@(resp)
  1230.       beq    1b
  1231.       movel    a0@,d0
  1232. +     rts
  1233.   
  1234.   #else /* !sfp004 */
  1235.   
  1236. ===================================================================
  1237. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_fltsisf.cpp,v
  1238. retrieving revision 1.3
  1239. diff -c -r1.3 _fltsisf.cpp
  1240. *** 1.3    1993/05/29 20:28:32
  1241. --- _fltsisf.cpp    1993/07/13 17:03:38
  1242. ***************
  1243. *** 23,29 ****
  1244.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1245.       cmpiw    #0x8900,a0@(resp)    | check
  1246.       movel    a7@(4),a0@
  1247. !     movew    #0x7400,a0@(comm)    | get double from fp0
  1248.   | wait loop is NOT coded directly
  1249.   1:    cmpw    #0x8900,a0@(resp)
  1250.       beq    1b
  1251. --- 23,29 ----
  1252.       movew    #0x4000,a0@(comm)    | load long int to fp0
  1253.       cmpiw    #0x8900,a0@(resp)    | check
  1254.       movel    a7@(4),a0@
  1255. !     movew    #0x6400,a0@(comm)    | get single from fp0
  1256.   | wait loop is NOT coded directly
  1257.   1:    cmpw    #0x8900,a0@(resp)
  1258.       beq    1b
  1259. ===================================================================
  1260. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_muldf3.cpp,v
  1261. retrieving revision 1.5
  1262. diff -c -r1.5 _muldf3.cpp
  1263. *** 1.5    1993/05/29 20:28:35
  1264. --- _muldf3.cpp    1993/06/04 15:22:14
  1265. ***************
  1266. *** 58,63 ****
  1267. --- 58,66 ----
  1268.   |
  1269.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1270.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1271. + | Revision 1.2.4 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  1272. + |   + ensure that Inf * NaN == NaN * Inf == NaN
  1273. + |     and 0 * Inf = Inf * 0 = NaN
  1274.   |
  1275.   | Revision 1.2.3 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  1276.   |   + code smoothing
  1277. ***************
  1278. *** 91,104 ****
  1279.       andl    d3,d6        | remove exponent from u.mantissa
  1280.       swap    d0
  1281.       movew    d0,d2        | d2 = u.sign
  1282. -     bclr    #15,d0        | kill sign bit
  1283. -     lsrw    #4,d0
  1284.   
  1285.       movel    d4,d1        | d1 = v.exp
  1286.       andl    d3,d4        | remove exponent from v.mantissa
  1287.       swap    d1
  1288.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1289. !     bclr    #15,d1        | kill sign bit
  1290.       lsrw    #4,d1
  1291.   |
  1292.   | Testing for NaN and Infinities
  1293. --- 94,117 ----
  1294.       andl    d3,d6        | remove exponent from u.mantissa
  1295.       swap    d0
  1296.       movew    d0,d2        | d2 = u.sign
  1297.   
  1298.       movel    d4,d1        | d1 = v.exp
  1299.       andl    d3,d4        | remove exponent from v.mantissa
  1300.       swap    d1
  1301.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1302. !     
  1303. !     moveq    #15,d3
  1304. !     bclr    d3,d0        | kill sign bit
  1305. !     bclr    d3,d1        | kill sign bit
  1306. !     tstl    d0        | test if one of factors is 0
  1307. !     bne    0f        | if not the first one then maybe the second
  1308. !     tstl    d7
  1309. !     beq    1f
  1310. ! 0:    tstl    d1
  1311. !     bne    1f
  1312. !     tstl    d5
  1313. ! 1:    seq    d2        | 'one of factors is 0' flag in the lowest byte
  1314. !     lsrw    #4,d0        | keep in d0, d1 exponents only
  1315.       lsrw    #4,d1
  1316.   |
  1317.   | Testing for NaN and Infinities
  1318. ***************
  1319. *** 113,123 ****
  1320.   |    Nan?
  1321.   0:    orl    d7,d6
  1322.       bne    retnan
  1323. ! |    Test v==0.
  1324. !     tstw    d1
  1325. !     bne    retinf  |  Inf  * x == Inf
  1326. !     orl    d5,d4
  1327. !     beq    retnan  | Inf * 0 == NaN
  1328.   |
  1329.   |    Return Infinity with correct sign
  1330.   |
  1331. --- 126,135 ----
  1332.   |    Nan?
  1333.   0:    orl    d7,d6
  1334.       bne    retnan
  1335. ! 1:    tstb    d2        | 0 times special or special times 0 ?
  1336. !     bne    retnan        | yes -> NaN
  1337. !     cmpw    d3,d1        | is the other special?
  1338. !     beq    2f        | maybe it is NaN
  1339.   |
  1340.   |    Return Infinity with correct sign
  1341.   |
  1342. ***************
  1343. *** 128,168 ****
  1344.   return:    moveml    sp@+,d2-d7
  1345.       rts
  1346.   |
  1347.   |    Return NaN
  1348.   |
  1349.   retnan: moveql    #-1,d1
  1350.       movel    d1,d0
  1351. !     bclr    #31,d0        | 0x7fffffff -> d0
  1352.       bra    return
  1353.   |
  1354. - | v is special
  1355. - |
  1356. - 1:    orl    d5,d4
  1357. -     bne    retnan
  1358. -     tstw    d0
  1359. -     bne    retinf
  1360. -     orl    d7,d6
  1361. -     beq    retnan
  1362. -     bra    retinf
  1363. - |
  1364.   | end of NaN and Inf.
  1365.   |
  1366. ! nospec:    subw    #16,sp        | multiplication accumulator
  1367.   
  1368. !     bset    #20,d6        | restore implied leading "1"
  1369.       tstw    d0        | check for zero exponent - no leading "1"
  1370.       bne    1f
  1371. !     bclr    #20,d6        | remove it
  1372. !     addw    #1,d0        | "normalize" exponent
  1373.   1:    movel    d6,d3
  1374.       orl    d7,d3
  1375.       beq    retz        | multiplying by zero
  1376.   
  1377. !     bset    #20,d4        | restore implied leading "1"
  1378.       tstw    d1        | check for zero exponent - no leading "1"
  1379.       bne    1f
  1380. !     bclr    #20,d4        | remove it
  1381. !     addw    #1,d1        | "normalize" exponent
  1382.   1:    movel    d4,d3
  1383.       orl    d5,d3
  1384.       beq    retz        | multiplying by zero
  1385. --- 140,179 ----
  1386.   return:    moveml    sp@+,d2-d7
  1387.       rts
  1388.   |
  1389. + | v is special
  1390. + |
  1391. + 2:    orl    d5,d4        | is v NaN?
  1392. +     beq    retinf        | if not then we have (not-NaN * Inf)
  1393. + |
  1394.   |    Return NaN
  1395.   |
  1396.   retnan: moveql    #-1,d1
  1397.       movel    d1,d0
  1398. !     lsrl    #1,d0        | 0x7fffffff -> d0
  1399.       bra    return
  1400.   |
  1401.   | end of NaN and Inf.
  1402.   |
  1403. ! nospec:    tstb    d2        | not needed - but we can waste two instr.
  1404. !     bne    retzz        | return signed 0 if one of factors is 0
  1405. !     lea    sp@(-16),sp    | multiplication accumulator
  1406.   
  1407. !     moveq    #20,d3
  1408. !     bset    d3,d6        | restore implied leading "1"
  1409.       tstw    d0        | check for zero exponent - no leading "1"
  1410.       bne    1f
  1411. !     bclr    d3,d6        | remove it
  1412. !     addqw    #1,d0        | "normalize" exponent
  1413.   1:    movel    d6,d3
  1414.       orl    d7,d3
  1415.       beq    retz        | multiplying by zero
  1416.   
  1417. !     moveq    #20,d3
  1418. !     bset    d3,d4        | restore implied leading "1"
  1419.       tstw    d1        | check for zero exponent - no leading "1"
  1420.       bne    1f
  1421. !     bclr    d3,d4        | remove it
  1422. !     addqw    #1,d1        | "normalize" exponent
  1423.   1:    movel    d4,d3
  1424.       orl    d5,d3
  1425.       beq    retz        | multiplying by zero
  1426. ***************
  1427. *** 227,233 ****
  1428.       movew    d6,d5
  1429.       movew    d7,d6
  1430.       clrw    d7
  1431. !     subw    #16,d0        | decrement exponent
  1432.       bra    2b
  1433.   3:
  1434.       movel    d6,d1        | get rounding bits
  1435. --- 238,245 ----
  1436.       movew    d6,d5
  1437.       movew    d7,d6
  1438.       clrw    d7
  1439. !     subqw    #8,d0        | decrement exponent
  1440. !     subqw    #8,d0
  1441.       bra    2b
  1442.   3:
  1443.       movel    d6,d1        | get rounding bits
  1444. ***************
  1445. *** 237,250 ****
  1446.       andl    #0xffffff00,d3
  1447.       beq    4f
  1448.       orb    #1,d1        | set "sticky bit" if any low-order set
  1449. ! 4:    addw    #16,sp        | remove accumulator from stack
  1450.       jmp    norm_df        | (result in d4/d5)
  1451.   |                | norm_df does not return here
  1452. ! retz:    moveq    #0,d0        | save zero as result
  1453.       movel    d0,d1
  1454.       lslw    #1,d2        | fill X bit
  1455.       roxrl    #1,d0        | set high bit of d0 accordingly
  1456. -     addw    #16,sp
  1457.       moveml    sp@+,d2-d7
  1458.       rts            | no normalizing neccessary
  1459.   
  1460. --- 249,262 ----
  1461.       andl    #0xffffff00,d3
  1462.       beq    4f
  1463.       orb    #1,d1        | set "sticky bit" if any low-order set
  1464. ! 4:    lea    sp@(16),sp    | remove accumulator from stack
  1465.       jmp    norm_df        | (result in d4/d5)
  1466.   |                | norm_df does not return here
  1467. ! retz:    lea    sp@(16),sp    | drop accumulator space
  1468. ! retzz:    moveq    #0,d0        | save zero as result
  1469.       movel    d0,d1
  1470.       lslw    #1,d2        | fill X bit
  1471.       roxrl    #1,d0        | set high bit of d0 accordingly
  1472.       moveml    sp@+,d2-d7
  1473.       rts            | no normalizing neccessary
  1474.   
  1475. ===================================================================
  1476. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/_mulsf3.cpp,v
  1477. retrieving revision 1.5
  1478. diff -c -r1.5 _mulsf3.cpp
  1479. *** 1.5    1993/05/29 20:28:36
  1480. --- _mulsf3.cpp    1993/06/04 15:22:16
  1481. ***************
  1482. *** 46,51 ****
  1483. --- 46,55 ----
  1484.   | written by Kai-Uwe Bloem (I5110401@dbstu1.bitnet).
  1485.   | Based on a 80x86 floating point packet from comp.os.minix, written by P.Housel
  1486.   |
  1487. + | Revision 1.2.4 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  1488. + |   + ensure that Inf * NaN == NaN * Inf == NaN
  1489. + |     and 0 * Inf = Inf * 0 = NaN
  1490. + |
  1491.   | Revision 1.2.3 michal 05-93 (ntomczak@vm.ucs.ualberta.ca)
  1492.   |   + code smoothing
  1493.   |
  1494. ***************
  1495. *** 79,92 ****
  1496.       andl    d3,d5        | remove exponent from u.mantissa
  1497.       swap    d0
  1498.       movew    d0,d2        | d2 = u.sign
  1499. -     bclr    #15,d0        | kill sign bit
  1500. -     lsrw    #7,d0
  1501.   
  1502.       movel    d4,d1        | d1 = v.exp
  1503.       andl    d3,d4        | remove exponent from v.mantissa
  1504.       swap    d1
  1505.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1506. !     bclr    #15,d1        | kill sign bit
  1507.       lsrw    #7,d1
  1508.   
  1509.   |
  1510. --- 83,102 ----
  1511.       andl    d3,d5        | remove exponent from u.mantissa
  1512.       swap    d0
  1513.       movew    d0,d2        | d2 = u.sign
  1514.   
  1515.       movel    d4,d1        | d1 = v.exp
  1516.       andl    d3,d4        | remove exponent from v.mantissa
  1517.       swap    d1
  1518.       eorw    d1,d2        | d2 = u.sign ^ v.sign (in bit 15)
  1519. !     
  1520. !     moveq    #15,d3
  1521. !     bclr    d3,d0        | kill sign bit
  1522. !     bclr    d3,d1        | kill sign bit
  1523. !     tstl    d0        | test if one of factors is 0
  1524. !     beq    1f
  1525. !     tstl    d1
  1526. ! 1:    seq    d2        | 'one of factors is 0' flag in the lowest byte
  1527. !     lsrw    #7,d0        | keep here exponents only
  1528.       lsrw    #7,d1
  1529.   
  1530.   |
  1531. ***************
  1532. *** 98,113 ****
  1533.       cmpb    d3,d1
  1534.       bne    nospec
  1535.       bra    1f
  1536.   |    first operand is special
  1537. ! |    Nan?
  1538. ! 0:    tstl    d5
  1539.       bne    retnan
  1540. ! |    Test v==0.
  1541. !     tstb    d1
  1542. !     bne    retinf  |  Inf  * x == Inf
  1543. !     tstl    d4
  1544. !     beq    retnan  | Inf * 0 == NaN
  1545. ! 
  1546.   |
  1547.   |    Return Infinity with correct sign
  1548.   |
  1549. --- 108,122 ----
  1550.       cmpb    d3,d1
  1551.       bne    nospec
  1552.       bra    1f
  1553. + |
  1554.   |    first operand is special
  1555. ! |
  1556. ! 0:    tstl    d5        | is it NaN?
  1557.       bne    retnan
  1558. ! 1:    tstb    d2        | 0 times special or special times 0 ?
  1559. !     bne    retnan        | yes -> NaN
  1560. !     cmpb    d3,d1        | is the other special ?
  1561. !     beq    2f        | maybe it is NaN
  1562.   |
  1563.   |    Return Infinity with correct sign
  1564.   |
  1565. ***************
  1566. *** 116,153 ****
  1567.       roxrl   #1,d0        | shift in high bit as given by d2
  1568.   return:    moveml    sp@+,d2-d5
  1569.       rts
  1570.   |
  1571. ! |    Return NaN
  1572.   |
  1573.   retnan: moveql    #-1,d0
  1574.       lsrl    #1,d0        | 0x7fffffff -> d0
  1575.       bra    return
  1576.   |
  1577. - | v is special
  1578. - |
  1579. - 1:    tstl    d4
  1580. -     bne    retnan
  1581. -     tstb    d0
  1582. -     bne    retinf
  1583. -     tstl    d5
  1584. -     beq    retnan
  1585. -     bra    retinf
  1586. - |
  1587.   | end of NaN and Inf.
  1588.   |
  1589. ! nospec:    bset    #23,d5        | restore implied leading "1"
  1590. !     subw    #8,sp        | multiplication accumulator
  1591.       tstw    d0        | check for zero exponent - no leading "1"
  1592.       bne    1f
  1593. !     bclr    #23,d5        | remove it
  1594.       addqw    #1,d0        | "normalize" exponent
  1595.   1:    tstl    d5
  1596.       beq    retz        | multiplying zero
  1597.   
  1598. !     bset    #23,d4        | restore implied leading "1"
  1599.       tstw    d1        | check for zero exponent - no leading "1"
  1600.       bne    1f
  1601. !     bclr    #23,d4        | remove it
  1602.       addqw    #1,d1        | "normalize" exponent
  1603.   1:    tstl    d4
  1604.       beq    retz        | multiply by zero
  1605. --- 125,160 ----
  1606.       roxrl   #1,d0        | shift in high bit as given by d2
  1607.   return:    moveml    sp@+,d2-d5
  1608.       rts
  1609. + 
  1610.   |
  1611. ! | v is special
  1612.   |
  1613. +     
  1614. + 2:    tstl    d4        | is this NaN?
  1615. +     beq    retinf        | we know that the other is not zero
  1616.   retnan: moveql    #-1,d0
  1617.       lsrl    #1,d0        | 0x7fffffff -> d0
  1618.       bra    return
  1619.   |
  1620.   | end of NaN and Inf.
  1621.   |
  1622. ! nospec:    tstb    d2        | not needed - but we can waste two instr.
  1623. !     bne    retzz        | return signed 0 if one of factors is 0
  1624. !     moveq    #23,d3
  1625. !     bset    d3,d5        | restore implied leading "1"
  1626. !     subqw    #8,sp        | multiplication accumulator
  1627.       tstw    d0        | check for zero exponent - no leading "1"
  1628.       bne    1f
  1629. !     bclr    d3,d5        | remove it
  1630.       addqw    #1,d0        | "normalize" exponent
  1631.   1:    tstl    d5
  1632.       beq    retz        | multiplying zero
  1633.   
  1634. !     moveq    #23,d3
  1635. !     bset    d3,d4        | restore implied leading "1"
  1636.       tstw    d1        | check for zero exponent - no leading "1"
  1637.       bne    1f
  1638. !     bclr    d3,d4        | remove it
  1639.       addqw    #1,d1        | "normalize" exponent
  1640.   1:    tstl    d4
  1641.       beq    retz        | multiply by zero
  1642. ***************
  1643. *** 193,199 ****
  1644.       swap    d5        |  with a denormalized number; there''s an
  1645.       movew    d5,d4        |  eventual loss of 4 bits in the rounding
  1646.       clrw    d5        |  byte -- what a pity 8-)
  1647. !     subw    #16,d0        | decrement exponent
  1648.       bra    2b
  1649.   3:
  1650.       movel    d5,d1        | get rounding bits
  1651. --- 200,207 ----
  1652.       swap    d5        |  with a denormalized number; there''s an
  1653.       movew    d5,d4        |  eventual loss of 4 bits in the rounding
  1654.       clrw    d5        |  byte -- what a pity 8-)
  1655. !     subqw    #8,d0        | decrement exponent
  1656. !     subqw    #8,d0
  1657.       bra    2b
  1658.   3:
  1659.       movel    d5,d1        | get rounding bits
  1660. ***************
  1661. *** 202,214 ****
  1662.       andl    #0xffffff00,d3
  1663.       beq    4f
  1664.       orb    #1,d1        | set "sticky bit" if any low-order set
  1665. ! 4:    addw    #8,sp        | remove accumulator from stack
  1666.       jmp    norm_sf        | (result in d4)
  1667.   
  1668. ! retz:    moveq    #0,d0        | save zero as result
  1669.       lslw    #1,d2        | and set it sign as for d2
  1670.       roxrl    #1,d0
  1671. -     addw    #8,sp
  1672.       moveml    sp@+,d2-d5
  1673.       rts            | no normalizing neccessary
  1674.   
  1675. --- 210,222 ----
  1676.       andl    #0xffffff00,d3
  1677.       beq    4f
  1678.       orb    #1,d1        | set "sticky bit" if any low-order set
  1679. ! 4:    addqw    #8,sp        | remove accumulator from stack
  1680.       jmp    norm_sf        | (result in d4)
  1681.   
  1682. ! retz:    addqw    #8,sp        | release accumulator space
  1683. ! retzz:    moveq    #0,d0        | save zero as result
  1684.       lslw    #1,d2        | and set it sign as for d2
  1685.       roxrl    #1,d0
  1686.       moveml    sp@+,d2-d5
  1687.       rts            | no normalizing neccessary
  1688.   
  1689. ===================================================================
  1690. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/a64l.c,v
  1691. retrieving revision 1.1
  1692. diff -c -r1.1 a64l.c
  1693. *** 1.1    1993/05/21 12:58:12
  1694. --- a64l.c    1993/07/10 16:36:33
  1695. ***************
  1696. *** 56,61 ****
  1697. --- 56,62 ----
  1698.       Hildo Biersma, with the help of a UN*X System V man page.
  1699.   */
  1700.   
  1701. + #include <support.h>
  1702.   #include <errno.h>
  1703.   extern int errno;
  1704.   
  1705. ===================================================================
  1706. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/calloc.c,v
  1707. retrieving revision 1.2
  1708. diff -c -r1.2 calloc.c
  1709. *** 1.2    1992/09/14 14:56:40
  1710. --- calloc.c    1993/07/10 16:36:34
  1711. ***************
  1712. *** 21,27 ****
  1713.   {
  1714.     void *r;
  1715.     unsigned long total;
  1716. -   extern void _bzero();
  1717.   
  1718.     total = n * sz;
  1719.     if ((r = _malloc(total)) != NULL) {
  1720. --- 21,26 ----
  1721. ===================================================================
  1722. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/chdir.c,v
  1723. retrieving revision 1.11
  1724. diff -c -r1.11 chdir.c
  1725. *** 1.11    1992/06/24 15:32:04
  1726. --- chdir.c    1993/07/10 16:36:36
  1727. ***************
  1728. *** 30,37 ****
  1729.           d+=2;
  1730.           (void)Dsetdrv(drv);
  1731.       }
  1732. -     else
  1733. -         drv = old;
  1734.   
  1735.       if (!*d) {        /* empty path means root directory */
  1736.           *d = '\\';
  1737. --- 30,35 ----
  1738. ===================================================================
  1739. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/chmod.c,v
  1740. retrieving revision 1.8
  1741. diff -c -r1.8 chmod.c
  1742. *** 1.8    1992/09/14 14:56:40
  1743. --- chmod.c    1993/07/10 16:36:37
  1744. ***************
  1745. *** 70,76 ****
  1746.       if (__mint >= 9) {
  1747.           (void)_unx2dos(_name, name);
  1748.           r = (int)Fchown(name, uid, gid);
  1749. !         if (r) {
  1750.               errno = -r;
  1751.               return -1;
  1752.           }
  1753. --- 70,76 ----
  1754.       if (__mint >= 9) {
  1755.           (void)_unx2dos(_name, name);
  1756.           r = (int)Fchown(name, uid, gid);
  1757. !         if (r && (r != -EINVAL)) {
  1758.               errno = -r;
  1759.               return -1;
  1760.           }
  1761. ===================================================================
  1762. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/doprnt.c,v
  1763. retrieving revision 1.23
  1764. diff -c -r1.23 doprnt.c
  1765. *** 1.23    1993/05/21 12:55:09
  1766. --- doprnt.c    1993/07/10 16:51:54
  1767. ***************
  1768. *** 368,374 ****
  1769.               if ((((unsigned long)_dd.i[0] > INF_HI) &&
  1770.   /* mj: check for a negative zero; it is not smaller than zero, so it
  1771.      was not negated */
  1772. !                  (_dd.i[0] != 0x80000000 || _dd.i[1] != 0)) ||
  1773.                   ((unsigned long)_dd.i[0] == INF_HI &&
  1774.                    (unsigned long)_dd.i[1] > INF_LO))
  1775.                 {
  1776. --- 368,374 ----
  1777.               if ((((unsigned long)_dd.i[0] > INF_HI) &&
  1778.   /* mj: check for a negative zero; it is not smaller than zero, so it
  1779.      was not negated */
  1780. !                  (_dd.i[0] != 0x80000000L || _dd.i[1] != 0)) ||
  1781.                   ((unsigned long)_dd.i[0] == INF_HI &&
  1782.                    (unsigned long)_dd.i[1] > INF_LO))
  1783.                 {
  1784. ***************
  1785. *** 524,534 ****
  1786.                * fieldsz excludes decimal prec; realsz includes it
  1787.                */
  1788.               fieldsz = size + fpprec;
  1789.               if (sign)
  1790. !                 fieldsz++;
  1791.               if (flags & HEXPREFIX)
  1792. !                 fieldsz += 2;
  1793. !             realsz = dprec > fieldsz ? dprec : fieldsz;
  1794.   
  1795.               /* right-adjusting blank padding */
  1796.               if ((flags & (LADJUST|ZEROPAD)) == 0 && width)
  1797. --- 524,534 ----
  1798.                * fieldsz excludes decimal prec; realsz includes it
  1799.                */
  1800.               fieldsz = size + fpprec;
  1801. +             realsz = dprec > fieldsz ? dprec : fieldsz;
  1802.               if (sign)
  1803. !                 realsz++;
  1804.               if (flags & HEXPREFIX)
  1805. !                 realsz += 2;
  1806.   
  1807.               /* right-adjusting blank padding */
  1808.               if ((flags & (LADJUST|ZEROPAD)) == 0 && width)
  1809. ***************
  1810. *** 609,638 ****
  1811.   
  1812.   /* static */ void Format __PROTO ((double number, char *buf));
  1813.   
  1814. ! asm ("
  1815. ! comm = -6;
  1816. ! resp = -16;
  1817. ! .text
  1818. ! .even
  1819. ! _Format:
  1820. !     lea    0xfffffa50:w,a0            | fpu address
  1821. !     lea    sp@(4),a1            | argptr
  1822. ! 
  1823. !     movew    #0x5400,a0@(comm)        | fmoved -> fp0
  1824. ! 1:    cmpw    #0x8900,a0@(resp)
  1825. !     beq    1b
  1826. !     movel    a1@+,a0@
  1827. !     movel    a1@+,a0@
  1828. ! 
  1829. !     movel    a1@,a1                | get buf
  1830. !     movew    #0x6c11,a0@(comm)        | fmovep fp0,a1@{#17}
  1831. ! 1:    cmpw    #0x8900,a0@(resp)
  1832. !     beq    1b
  1833. !     movel    a0@,a1@+
  1834. !     movel    a0@,a1@+
  1835. !     movel    a0@,a1@+
  1836. !     rts
  1837. ! ");
  1838.   #endif /* sfp004 */
  1839.       
  1840.   static int
  1841. --- 609,638 ----
  1842.   
  1843.   /* static */ void Format __PROTO ((double number, char *buf));
  1844.   
  1845. ! asm (
  1846. ! "comm = -6;\n"
  1847. ! "resp = -16;\n"
  1848. ! ".text\n"
  1849. ! ".even\n"
  1850. ! "_Format:\n"
  1851. ! "    lea    0xfffffa50:w,a0            | fpu address\n"
  1852. ! "    lea    sp@(4),a1            | argptr\n"
  1853. ! 
  1854. ! "    movew    #0x5400,a0@(comm)        | fmoved -> fp0\n"
  1855. ! "1:    cmpw    #0x8900,a0@(resp)\n"
  1856. ! "    beq    1b\n"
  1857. ! "    movel    a1@+,a0@\n"
  1858. ! "    movel    a1@+,a0@\n"
  1859. ! 
  1860. ! "    movel    a1@,a1                | get buf\n"
  1861. ! "    movew    #0x6c11,a0@(comm)        | fmovep fp0,a1@{#17}\n"
  1862. ! "1:    cmpw    #0x8900,a0@(resp)\n"
  1863. ! "    beq    1b\n"
  1864. ! "    movel    a0@,a1@+\n"
  1865. ! "    movel    a0@,a1@+\n"
  1866. ! "    movel    a0@,a1@+\n"
  1867. ! "    rts\n"
  1868. ! );
  1869.   #endif /* sfp004 */
  1870.       
  1871.   static int
  1872. ===================================================================
  1873. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/eprintf.c,v
  1874. retrieving revision 1.2
  1875. diff -c -r1.2 eprintf.c
  1876. *** 1.2    1992/06/03 14:48:43
  1877. --- eprintf.c    1993/07/10 16:36:40
  1878. ***************
  1879. *** 1,6 ****
  1880. - #include <stdio.h>
  1881.   #include <stdarg.h>
  1882.   #include <string.h>
  1883.   #include "lib.h"
  1884.   
  1885.   /* new file 4/15/92 sb
  1886. --- 1,6 ----
  1887.   #include <stdarg.h>
  1888.   #include <string.h>
  1889. + #include <assert.h>
  1890.   #include "lib.h"
  1891.   
  1892.   /* new file 4/15/92 sb
  1893. ***************
  1894. *** 12,24 ****
  1895.   
  1896.      5/2/92 sb
  1897.      Modified to do its own work rather than call fprintf().
  1898. - */
  1899. - 
  1900.   
  1901. ! static char buf[20];    /* big enough for any value of a long */
  1902.   
  1903.   static void _say(s)
  1904. ! char *s;
  1905.   {
  1906.       _write(2,s,(long)(strlen(s)));
  1907.   }
  1908. --- 12,26 ----
  1909.   
  1910.      5/2/92 sb
  1911.      Modified to do its own work rather than call fprintf().
  1912.   
  1913. !    5/4/93 uo
  1914. !    Threw away a static buffer.
  1915. ! */
  1916. !   
  1917. ! static void _say __PROTO((const char *s));
  1918.   
  1919.   static void _say(s)
  1920. ! const char *s;
  1921.   {
  1922.       _write(2,s,(long)(strlen(s)));
  1923.   }
  1924. ***************
  1925. *** 29,34 ****
  1926. --- 31,38 ----
  1927.   const long line;
  1928.   const char *filename;
  1929.   {
  1930. +     char buf[20];
  1931. + 
  1932.       _ltoa(line, buf, 10);
  1933.       _say("assertion `");
  1934.       _say(expression);
  1935. ===================================================================
  1936. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/findfile.c,v
  1937. retrieving revision 1.11
  1938. diff -c -r1.11 findfile.c
  1939. *** 1.11    1992/09/14 14:56:40
  1940. --- findfile.c    1993/07/13 17:03:43
  1941. ***************
  1942. *** 7,16 ****
  1943. --- 7,19 ----
  1944.      Returns the name by which the file was found, or NULL.
  1945.   
  1946.      Written by Eric R. Smith and placed in the public domain.
  1947. + 
  1948. +    rehacked by Uwe Ohse, 28.4.93, to support reentrant spawn/popen.
  1949.   */
  1950.   
  1951.   #include <compiler.h>
  1952.   #include <limits.h>    /* needed for PATH_MAX */
  1953. + #include <support.h>
  1954.   #include <stddef.h>
  1955.   #include <types.h>
  1956.   #include <stat.h>
  1957. ***************
  1958. *** 27,33 ****
  1959.   static char *nullext[] = { NULL };
  1960.   
  1961.   static int EXISTS __PROTO((char *));
  1962. - char *findfile __PROTO((char *fname, char *fpath, char **fext));
  1963.   
  1964.   static int
  1965.   EXISTS(name)
  1966. --- 30,35 ----
  1967. ***************
  1968. *** 42,81 ****
  1969.       return 1;
  1970.   }
  1971.   
  1972.   char *
  1973.   findfile(fname, fpath, fext)
  1974.           char *fname, *fpath, **fext;
  1975.   {
  1976. !         static char try[PATH_MAX];
  1977. !         char *s, *t, *extplace, **nextext, c;
  1978. !         int  hasext = 0, haspath = 0;
  1979.   
  1980.       if (!fname || !*fname)
  1981.           return NULL;
  1982.   
  1983. !         s = try; t = fname;
  1984.   
  1985.   /* copy the file in, checking to see if a path and/or extension are already
  1986.      given */
  1987.   
  1988. !         while ( (c = *t++) != 0 ) {
  1989. !                 if (c == DIRSEP1 || c == DIRSEP2) {
  1990. !                         haspath = 1; hasext = 0;
  1991. !                 }
  1992. !                 else if (c == '.')
  1993. !                         hasext = 1;
  1994. !                 *s++ = c;
  1995. !         }
  1996. !         extplace = s;
  1997. !         *s++ = 0;
  1998. ! 
  1999. !         if (haspath || !fpath)
  2000. !                 fpath = "";
  2001. !         if (hasext || !fext)
  2002. !                 fext = nullext;
  2003.   
  2004. !         for(;;) {               /* loop on path elements */
  2005. !                 nextext = fext;
  2006.           if (!hasext) {
  2007.               extplace[0] = 0;
  2008.               extplace[1] = 0;
  2009. --- 44,96 ----
  2010.       return 1;
  2011.   }
  2012.   
  2013. + 
  2014.   char *
  2015.   findfile(fname, fpath, fext)
  2016.           char *fname, *fpath, **fext;
  2017.   {
  2018. !       /* simply calls buffindfile */
  2019. !       static char try[PATH_MAX];
  2020. !       return buffindfile(fname,fpath,fext,try);
  2021. ! }
  2022. ! 
  2023. ! 
  2024. ! char *
  2025. ! buffindfile(fname, fpath, fext, try)
  2026. !       char *fname, *fpath, **fext, *try;
  2027. ! {
  2028. !       char *s, *t, *extplace, **nextext, c;
  2029. !       int  hasext = 0, haspath = 0;
  2030.   
  2031.       if (!fname || !*fname)
  2032.           return NULL;
  2033.   
  2034. !       s = try; t = fname;
  2035.   
  2036.   /* copy the file in, checking to see if a path and/or extension are already
  2037.      given */
  2038.   
  2039. !       while ( (c = *t++) != 0 )
  2040. !       {
  2041. !               if (c == DIRSEP1 || c == DIRSEP2)
  2042. !               {
  2043. !                       haspath = 1;
  2044. !                       hasext = 0;
  2045. !               }
  2046. !               else if (c == '.')
  2047. !                       hasext = 1;
  2048. !               *s++ = c;
  2049. !       }
  2050. !       extplace = s;
  2051. !       *s++ = 0;
  2052. ! 
  2053. !       if (haspath || !fpath)
  2054. !               fpath = "";
  2055. !       if (hasext || !fext)
  2056. !               fext = nullext;
  2057.   
  2058. !       for(;;) {               /* loop on path elements */
  2059. !               nextext = fext;
  2060.           if (!hasext) {
  2061.               extplace[0] = 0;
  2062.               extplace[1] = 0;
  2063. ***************
  2064. *** 84,107 ****
  2065.           if (EXISTS(try))
  2066.               return try;
  2067.           extplace[0] = '.';
  2068. !                 while(*nextext) {       /* loop on extensions */
  2069. !                         (void)strcpy(&extplace[1], *nextext++);
  2070. !                         if (EXISTS(try))
  2071. !                                 return try;
  2072. !                 }
  2073. !                 if (!*fpath) break;  /* no more places to look */
  2074.   
  2075.   /* copy in next element of path list */
  2076. !                 s = try;
  2077. !                 while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  2078. !                         *s++ = c;
  2079. !                         fpath++;
  2080. !                 }
  2081. !                 if (c) fpath++;
  2082. !                 *s++ = DIRSEP1;
  2083. !                 t = fname;
  2084. !                 while ((*s++ = *t++) != 0) ;
  2085. !                 extplace = --s ;        /* where the extension gets written */
  2086. !         }
  2087. !         return NULL;
  2088.   }
  2089. --- 99,134 ----
  2090.           if (EXISTS(try))
  2091.               return try;
  2092.           extplace[0] = '.';
  2093. !               while(*nextext) {       /* loop on extensions */
  2094. !                       (void)strcpy(&extplace[1], *nextext++);
  2095. !                       if (EXISTS(try))
  2096. !                               return try;
  2097. !               }
  2098. !               if (!*fpath) break;  /* no more places to look */
  2099.   
  2100.   /* copy in next element of path list */
  2101. !               s = try;
  2102. !         /* an attempt to accomodate within reason TOS specs  -- mj */
  2103. !         if (*(fpath + 1) == ':') {
  2104. !             if ((*(fpath + 2) == DIRSEP1 ||
  2105. !                  *(fpath + 2) == DIRSEP2)   &&
  2106. !                 (*fpath != '.' && *fpath != ':')) {
  2107. !                 *s++ = *fpath++;
  2108. !                 *s++ = *fpath++;
  2109. !                 *s++ = *fpath++;
  2110. !             }
  2111. !         }
  2112. !               while ((c = *fpath) != 0 && c != PATHSEP1 && c != PATHSEP2) {
  2113. !                       *s++ = c;
  2114. !                       fpath++;
  2115. !               }
  2116. !               if (c)
  2117. !                       fpath++;
  2118. !               *s++ = DIRSEP1;
  2119. !               t = fname;
  2120. !               while ((*s++ = *t++) != 0)
  2121. !                       ;
  2122. !               extplace = --s ;        /* where the extension gets written */
  2123. !       }
  2124. !       return NULL;
  2125.   }
  2126. ===================================================================
  2127. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fopen.c,v
  2128. retrieving revision 1.19
  2129. diff -c -r1.19 fopen.c
  2130. *** 1.19    1993/03/01 17:34:29
  2131. --- fopen.c    1993/07/10 16:36:41
  2132. ***************
  2133. *** 64,69 ****
  2134. --- 64,70 ----
  2135.           iomode |= O_WRONLY;
  2136.       else
  2137.           iomode |= O_RDWR;
  2138. +     iomode |= O_NOCTTY;
  2139.       h = open(filename, iomode, 0644);
  2140.       if(h < __SMALLEST_VALID_HANDLE)
  2141.           {
  2142. ===================================================================
  2143. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fread.c,v
  2144. retrieving revision 1.16
  2145. diff -c -r1.16 fread.c
  2146. *** 1.16    1993/02/18 00:00:23
  2147. --- fread.c    1993/07/10 16:36:42
  2148. ***************
  2149. *** 2,7 ****
  2150. --- 2,11 ----
  2151.    * from Dale Schumacher's dLibs
  2152.    */
  2153.   
  2154. + /* 5/26/93 sb -- Modified for HSC to account for the possibility that
  2155. +  * size * count >= 64K.
  2156. +  */
  2157. + 
  2158.   #include <stddef.h>
  2159.   #include <stdio.h>
  2160.   #include <unistd.h>
  2161. ***************
  2162. *** 18,24 ****
  2163. --- 22,32 ----
  2164.       size_t count;
  2165.       register FILE *fp;
  2166.       {
  2167. + #ifdef __SOZOBON__
  2168. +     register unsigned long n;
  2169. + #else
  2170.       register size_t n;
  2171. + #endif
  2172.       register long l, cnt;
  2173.       register unsigned int f;
  2174.       char *data=_data;
  2175. ***************
  2176. *** 33,39 ****
  2177. --- 41,51 ----
  2178.           return(0);
  2179.   
  2180.       l = 0;
  2181. + #ifdef __SOZOBON__
  2182. +     n = (unsigned long)count * size;
  2183. + #else
  2184.       n = count * size;
  2185. + #endif
  2186.   #if 0
  2187.       if(fflush(fp))            /* re-sync file pointers */
  2188.           return 0;
  2189. ***************
  2190. *** 44,50 ****
  2191. --- 56,66 ----
  2192.       if((cnt = fp->_cnt) > 0)
  2193.       {
  2194.           cnt = (cnt < n) ? cnt : n;
  2195. + #ifdef __SOZOBON__
  2196. +         _bcopy(fp->_ptr, data, cnt);
  2197. + #else
  2198.           bcopy(fp->_ptr, data, cnt);
  2199. + #endif
  2200.           fp->_cnt -= cnt;
  2201.           fp->_ptr += cnt;
  2202.           l += cnt;
  2203. ***************
  2204. *** 138,142 ****
  2205. --- 154,162 ----
  2206.       }
  2207.   
  2208.       ret:
  2209. + #ifdef __SOZOBON__
  2210. +     return((l > 0) ? ((size_t)((unsigned long)l / size)) : 0);
  2211. + #else
  2212.       return((l > 0) ? ((size_t)l / size) : 0);
  2213. + #endif
  2214.       }
  2215. ===================================================================
  2216. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/frexp.cpp,v
  2217. retrieving revision 1.7
  2218. diff -c -r1.7 frexp.cpp
  2219. *** 1.7    1993/05/29 20:28:43
  2220. --- frexp.cpp    1993/07/13 17:03:44
  2221. ***************
  2222. *** 174,179 ****
  2223. --- 174,180 ----
  2224.   
  2225.   .globl _frexp
  2226.   
  2227. + _frexp:
  2228.       tstl    sp@(4)        | 1st arg == 0 ?
  2229.       bne    nonzero
  2230.       tstl    sp@(8)
  2231. ***************
  2232. *** 210,216 ****
  2233.       .long    0x0c688900, 0xfff067f8
  2234.       movew    a0@,a1@            | return exp
  2235.   #else
  2236. !     movew    #0x7880,a0@(comm)    | fetch exp (fmovel from fp1)
  2237.       .long    0x0c688900, 0xfff067f8
  2238.       movel    a0@,a1@            | return exp
  2239.   #endif
  2240. --- 211,217 ----
  2241.       .long    0x0c688900, 0xfff067f8
  2242.       movew    a0@,a1@            | return exp
  2243.   #else
  2244. !     movew    #0x6080,a0@(comm)    | fetch exp (fmovel from fp1)
  2245.       .long    0x0c688900, 0xfff067f8
  2246.       movel    a0@,a1@            | return exp
  2247.   #endif
  2248. ===================================================================
  2249. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/fwrite.c,v
  2250. retrieving revision 1.13
  2251. diff -c -r1.13 fwrite.c
  2252. *** 1.13    1992/09/14 14:56:40
  2253. --- fwrite.c    1993/07/10 16:36:44
  2254. ***************
  2255. *** 1,5 ****
  2256. --- 1,9 ----
  2257.   /* from Dale Schumacher's dLibs */
  2258.   
  2259. + /* 5/26/93 sb -- Modified for HSC to account for the possibility that
  2260. +  * size * count >= 64K.
  2261. +  */
  2262. + 
  2263.   #include <stddef.h>
  2264.   #include <stdio.h>
  2265.   #include <unistd.h>
  2266. ***************
  2267. *** 17,23 ****
  2268. --- 21,31 ----
  2269.   register FILE *fp;
  2270.   {
  2271.       const char *data=_data;
  2272. + #ifdef __SOZOBON__
  2273. +     register unsigned long n, m;
  2274. + #else
  2275.       register size_t n, m;
  2276. + #endif
  2277.       register long l = 0;
  2278.       long space;
  2279.       unsigned int f = fp->_flag;
  2280. ***************
  2281. *** 38,52 ****
  2282. --- 46,69 ----
  2283.   
  2284.       assert ((data != NULL));
  2285.       assert ((size != 0));
  2286. + #ifdef __SOZOBON__
  2287. +     n =  (unsigned long)count * size;
  2288. +     assert ( n <= (unsigned_long)LONG_MAX);  /* otherwise impl will not work */
  2289. + #else
  2290.       n =  count * size;
  2291.       assert ( n <= (size_t)LONG_MAX);  /* otherwise impl will not work */
  2292. + #endif
  2293.   
  2294.       if( (f&_IOBIN) || __FRW_BIN__ ) {
  2295.         space = fp->_bsiz - fp->_cnt;
  2296.         while(n > 0)
  2297.         {
  2298.             m = (n > space)? space: n;
  2299. + #ifdef __SOZOBON__
  2300. +           _bcopy(data, fp->_ptr, m);
  2301. + #else
  2302.             bcopy(data, fp->_ptr, m);
  2303. + #endif
  2304.             fp->_ptr += m;
  2305.             fp->_cnt += m;
  2306.             space -= m;
  2307. ***************
  2308. *** 77,84 ****
  2309.         line_flush=0;
  2310.         /* this relies on having at least one byte buffer,
  2311.            otherwise we'll hang up when trying to write CRLF */
  2312. !       while(n > 0)
  2313. !       {
  2314.             space = fp->_bsiz - fp->_cnt;
  2315.             restart_buf=data;
  2316.             while( space>0 && n>0 ) {
  2317. --- 94,100 ----
  2318.         line_flush=0;
  2319.         /* this relies on having at least one byte buffer,
  2320.            otherwise we'll hang up when trying to write CRLF */
  2321. !       while(n > 0) {
  2322.             space = fp->_bsiz - fp->_cnt;
  2323.             restart_buf=data;
  2324.             while( space>0 && n>0 ) {
  2325. ***************
  2326. *** 120,134 ****
  2327.               n--;
  2328.               data++;
  2329.             }
  2330. !           if( (m=_write(fp->_file, restart_buf, data-restart_buf ))
  2331. !               != data-restart_buf ) {
  2332.               fp->_flag |= _IOERR;
  2333.               return 0;
  2334.             }
  2335. !           l+=m;
  2336.           }
  2337.             }
  2338. !       }
  2339.         if( line_flush ) {
  2340.            if(fflush(fp))
  2341.            return 0;
  2342. --- 136,151 ----
  2343.               n--;
  2344.               data++;
  2345.             }
  2346. !           if( (m = _write(fp->_file, restart_buf, data - restart_buf))
  2347. !               != data - restart_buf) {
  2348.               fp->_flag |= _IOERR;
  2349.               return 0;
  2350.             }
  2351. !           l += (m - 1); /* we already counted one character, before
  2352. !                  * decrementing 'space' to zero */
  2353.           }
  2354.             }
  2355. !       } /* while */
  2356.         if( line_flush ) {
  2357.            if(fflush(fp))
  2358.            return 0;
  2359. ***************
  2360. *** 137,141 ****
  2361. --- 154,162 ----
  2362.         }
  2363.       }
  2364.   
  2365. + #ifdef __SOZOBON
  2366. +     return((l > 0) ? ((size_t)((unsigned long)l / size)) : 0);
  2367. + #else
  2368.       return((l > 0) ? ((size_t)l / size) : 0);
  2369. + #endif
  2370.   }
  2371. ===================================================================
  2372. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getpw.c,v
  2373. retrieving revision 1.11
  2374. diff -c -r1.11 getpw.c
  2375. *** 1.11    1992/09/14 14:56:40
  2376. --- getpw.c    1993/07/10 16:36:45
  2377. ***************
  2378. *** 31,212 ****
  2379.   
  2380.   /* minorly customized by ERS for the MiNT library */
  2381.   
  2382.   #include <stdio.h>
  2383.   #include <pwd.h>
  2384.   #include <unistd.h>
  2385.   #include <string.h>
  2386.   #include <stdlib.h>
  2387.   
  2388. ! static char *pwdfile = "/etc/passwd";    /* default passwd file */
  2389.   
  2390.   static FILE *fp = NULL;
  2391. ! static struct passwd curentry;        /* static data to return */
  2392.   
  2393. ! static int nextent __PROTO((void));
  2394.   
  2395. ! void setpwfile (cp)
  2396.   char *cp;
  2397.   {
  2398. !     endpwent();
  2399. !     if(cp) pwdfile = cp;
  2400. ! }
  2401. ! 
  2402. ! void setpwent ()
  2403. ! {
  2404. !     if (fp)
  2405. !         rewind (fp);
  2406. ! #ifdef atarist
  2407. !     else if ((fp = fopen (pwdfile, "rt")) == NULL)
  2408. ! #else
  2409. !     else if ((fp = fopen (pwdfile, "r")) == NULL)
  2410. ! #endif
  2411. !     {
  2412.   #ifdef VERBOSE
  2413. !         fprintf (stderr,
  2414. !             "setpwent: %s non-existant or unreadable.\n", pwdfile);
  2415.   #endif
  2416. !     }
  2417. ! }
  2418.   
  2419. ! void endpwent ()
  2420.   {
  2421. !     if (fp)
  2422. !     {
  2423. !         fclose (fp);
  2424. !         fp = NULL;
  2425. !     }
  2426. ! }
  2427.   
  2428. ! struct passwd *getpwent ()
  2429.   {
  2430. !     if (! fp ) {
  2431. !         setpwent();
  2432. !         if (! fp )
  2433. !             return (NULL);
  2434. !     }
  2435. ! 
  2436. !     if (! nextent ())
  2437. !         return (NULL);
  2438. !     else
  2439. !         return (& curentry);
  2440. ! }
  2441. ! 
  2442. ! struct passwd *getpwuid (uid)
  2443. ! register int uid;
  2444.   {
  2445. !     setpwent ();
  2446. !     while (nextent ())
  2447. !         if (curentry.pw_uid == uid)
  2448. !             return (& curentry);
  2449. ! 
  2450. !     return (NULL);
  2451. ! }
  2452.   
  2453. ! struct passwd *getpwnam (name)
  2454. ! register const char *name;
  2455.   {
  2456. !     setpwent ();
  2457.   
  2458. !     while (nextent ())
  2459. !         if (strcmp (curentry.pw_name, name) == 0)
  2460. !             return (& curentry);
  2461.   
  2462. !     return (NULL);
  2463. ! }
  2464.   
  2465. ! #ifdef atarist
  2466. ! static char savbuf[256];    /* BUFSIZ seems bigger than necessary! */
  2467.   #else
  2468.   static char savbuf[BUFSIZ];
  2469.   #endif
  2470. !         
  2471. ! static int nextent ()
  2472.   {
  2473. !     register char *cp;
  2474.   
  2475. !     if (! fp ) {
  2476. !         setpwent ();
  2477. !         if (! fp )
  2478. !             return (0);
  2479. !     }
  2480. ! 
  2481. !     while (fgets (savbuf, (int)sizeof(savbuf), fp) != NULL)
  2482. !     {
  2483. !         for (cp = savbuf; *cp && *cp != ':'; cp++)
  2484. !             ;
  2485. !         curentry.pw_name = savbuf;
  2486. !         *cp++ = '\0';
  2487. !         curentry.pw_passwd = cp;
  2488. !         for (; *cp && *cp != ':'; cp++)
  2489. !             ;
  2490. !         *cp++ = '\0';
  2491. !         curentry.pw_uid = atoi (cp);
  2492. !         for (; *cp && *cp != ':'; cp++)
  2493. !             ;
  2494. !         *cp++ = '\0';
  2495. !         curentry.pw_gid = atoi (cp);
  2496. !         for (; *cp && *cp != ':'; cp++)
  2497. !             ;
  2498. !         *cp++ = '\0';
  2499. !         curentry.pw_gecos = cp;
  2500. !         for (; *cp && *cp != ':'; cp++)
  2501. !             ;
  2502. !         *cp++ = '\0';
  2503. !         curentry.pw_dir = cp;
  2504. !         for (; *cp && *cp != ':'; cp++)
  2505. !             ;
  2506. !         *cp++ = '\0';
  2507. !         curentry.pw_shell = cp;
  2508. !         for (; *cp && *cp != ':' && *cp != '\n'; cp++)
  2509. !             ;
  2510. !         *cp++ = '\0';
  2511. !         return (1);
  2512. !     }
  2513. !     return (0);
  2514. ! }
  2515. ! 
  2516. ! #ifdef TEST
  2517. ! main (argc, argv)
  2518. ! int argc;
  2519. ! char **argv;
  2520. ! {
  2521. !     struct passwd *pwd;
  2522. ! 
  2523. !     if (argc > 1)
  2524. !         setpwfile (argv[1]);
  2525. ! 
  2526. !     setpwent ();
  2527. !     while ((pwd = getpwent ()) != NULL)
  2528. !     {
  2529. !         printf ("%s:\n\t%s\n\t%d\n\t%d\n\t%s\n\t%s\n\t%s\n",
  2530. !             pwd->pw_name,
  2531. !             pwd->pw_passwd,
  2532. !             pwd->pw_uid,
  2533. !             pwd->pw_gid,
  2534. !             pwd->pw_gecos,
  2535. !             pwd->pw_dir,
  2536. !             pwd->pw_shell);
  2537. !     }
  2538. !     endpwent ();
  2539. ! 
  2540. !     if (pwd = getpwnam ("operator"))
  2541. !         printf ("%s:\n\t%s\n\t%d\n\t%d\n\t%s\n\t%s\n\t%s\n",
  2542. !             pwd->pw_name,
  2543. !             pwd->pw_passwd,
  2544. !             pwd->pw_uid,
  2545. !             pwd->pw_gid,
  2546. !             pwd->pw_gecos,
  2547. !             pwd->pw_dir,
  2548. !             pwd->pw_shell);
  2549. ! 
  2550. !     if (pwd = getpwuid (1))
  2551. !         printf ("%s:\n\t%s\n\t%d\n\t%d\n\t%s\n\t%s\n\t%s\n",
  2552. !             pwd->pw_name,
  2553. !             pwd->pw_passwd,
  2554. !             pwd->pw_uid,
  2555. !             pwd->pw_gid,
  2556. !             pwd->pw_gecos,
  2557. !             pwd->pw_dir,
  2558. !             pwd->pw_shell);
  2559. ! }
  2560. ! #endif
  2561. --- 31,458 ----
  2562.   
  2563.   /* minorly customized by ERS for the MiNT library */
  2564.   
  2565. + /****************************************************************/
  2566. + /* Module name:   getpw.c                                       */
  2567. + /* Library name:  mintlibs for Atari ST                         */
  2568. + /* Author:        Hildo Biersma (boender@dutiws.twi.tudelft.nl) */
  2569. + /* Date:          January 29, 1993                              */
  2570. + /* Revision:      1 (add password aging, add System V routines, */
  2571. + /*                   include three man pages, add example code) */
  2572. + /****************************************************************/
  2573. + 
  2574. + /*
  2575. + NAME
  2576. +     getpw - get name from UID
  2577. + 
  2578. + SYNOPSIS
  2579. +     #include <pwd.h>
  2580. + 
  2581. +     int getpw(int uid, char *buf);
  2582. + 
  2583. + DESCRIPTION
  2584. +     getpw searches the password file for a user id number that
  2585. +     equals uid, copies the line of the password file in which uid
  2586. +     was found into the array pointed to by buf, and returns 0.
  2587. +     getpw returns non-zero if uid cannot be found.
  2588. + 
  2589. +     This routine is included only for compatibility with old UN*X
  2590. +     systems and should not be used in any new programs; see
  2591. +     getpwent for routines to use instead.
  2592. + 
  2593. + FILES
  2594. +     /etc/passwd
  2595. + 
  2596. + SEE ALSO
  2597. +     getpwent
  2598. + 
  2599. + AUTHOR
  2600. +     Hildo Biersma, with the help of a UN*X System V man page.
  2601. + */
  2602. + 
  2603. + /*
  2604. + NAME
  2605. +     getpwent, getpwuid, getpwnam, setpwent, endpwent,
  2606. +     fgetpwent, setpwfile - get password file entry
  2607. + 
  2608. + SYNOPSIS
  2609. +     #include <stdio.h>  // Only needed for fgetpwent
  2610. +     #include <pwd.h>
  2611. + 
  2612. +     struct passwd *getpwent(void);
  2613. + 
  2614. +     struct passwd *getpwuid(int uid);
  2615. + 
  2616. +     struct passwd *getpwnam(const char *name);
  2617. + 
  2618. +     void setpwent(void);
  2619. + 
  2620. +     void endpwent(void);
  2621. + 
  2622. +     struct passwd *fgetpwent(FILE *f);
  2623. + 
  2624. +     void setpwfile(const char *name);
  2625. + 
  2626. + DESCRIPTION
  2627. +     getpwent, getpwuid and getpwnam each returns a pointer to an
  2628. +     object containing the broken-out fields of a line in the
  2629. +     /etc/passwd file.
  2630. +     Each line in the file contains a "passwd" structure, declared
  2631. +     in the <pwd.h> header file. For the definition of this structure
  2632. +     and the meaning of the fields, see the <pwd.h> header file.
  2633. + 
  2634. +     getpwent when first called returns a pointer to the first
  2635. +     passwd structure in the file; thereafter, it returns a pointer
  2636. +     to the next passwd structure in the file; so successive calls
  2637. +     can be used to search the entire file.
  2638. + 
  2639. +     getpwuid searches from the beginning of the file until a
  2640. +     numerical user ID is found matching uid is found and returns
  2641. +     a pointer to the particular structure in which it was found.
  2642. +     Thus, it cannot be found to search for several users having
  2643. +     duplicate numerical user IDs.
  2644. + 
  2645. +     getpwnam searches from the beginning of the file until a
  2646. +     login name matching name is found and returns a pointer to
  2647. +     the particular structure in which it was found.
  2648. + 
  2649. +     If an EOF or an error is encountered on reading, getpwent,
  2650. +     getpwuid and getpwnam return a NULL pointer.
  2651. + 
  2652. +     A call to setpwent has the effect of rewinding the password
  2653. +     file to allow repeated searches.
  2654. + 
  2655. +     endpwent may be called to close the password file when
  2656. +     processing is complete.
  2657. + 
  2658. +     fgetpwent returns a pointer to the next passwd structure in
  2659. +     the stream f, which matches the format of /etc/passwd.
  2660. + 
  2661. +     setpwfile will set the password file to be read from by all
  2662. +     the above routines except fgetpwent.   
  2663. + 
  2664. + FILES
  2665. +     /etc/passwd
  2666. + 
  2667. + SEE ALSO
  2668. +     getlogin, getgrent, putpwent
  2669. + 
  2670. + NOTES
  2671. +     All information is contained in a static area, so it must
  2672. +     be copied if it is to be saved.
  2673. + 
  2674. +     Password aging is supported.
  2675. + 
  2676. +     In order not to suffer from possible future changes in the
  2677. +     format of the passwd file or in the passwd structure,
  2678. +     these routines should always be used for reading from file,
  2679. +     while putpwent should always be used for writing to file.
  2680. + 
  2681. +     These routines expect the passwd file to be of type text,
  2682. +     and can therefore read both DOS and UN*X format files.
  2683. + 
  2684. + AUTHORS
  2685. +     Arnold D. Robbins - original version
  2686. +     Eric Smith        - adapted for the mintlibs
  2687. +     Hildo Biersma     - included System V routines and password aging
  2688. + */
  2689. + 
  2690. + /*
  2691. + PASSWORD AGING
  2692. + 
  2693. + DESCRIPTION
  2694. +     Password aging is in effect for a particular user if his
  2695. +     encrypted password in the password file is followed by a
  2696. +     comma and a non-null string of characters from the 
  2697. +     alphabet (., /, 0-9, A-Z, a-z) also used for the encrypted
  2698. +     password. (Such a string must be introduced in the first
  2699. +     place by the super-user.)
  2700. + 
  2701. +     The first character of the age, M say, denotes the maximum
  2702. +     number of weeks for which a password is valid. A user who
  2703. +     attempts to login after his password has expired should be
  2704. +     forced to supply a new one. The next character, N say,
  2705. +     denotes the minimum number of weeks which must expire
  2706. +     before the password may be changed. The remaining characters
  2707. +     define the week (counted from the beginning of 1970) when
  2708. +     the password was last changed. (A null string is equivalent
  2709. +     to zero.) M and N have numerical values in the range 0-63
  2710. +     that correspond to the 64-character alphabet mentioned
  2711. +     above (i.e., / = 1 week; z = 63 weeks). If M = N = 0
  2712. +     (derived from the string . or ..) the user should be forced
  2713. +     to change his password the next time he logs in (and the
  2714. +     "age" should disappear from his entry in the password file).
  2715. +     If N > M (signified, e.g., by the string /.) only the
  2716. +     super-user should be able to change the password.
  2717. + 
  2718. + SEE ALSO
  2719. +     a64l, getpwent, putpwent
  2720. + 
  2721. + NOTE
  2722. +     The compliance with password aging in MiNT is a joke, since
  2723. +     users are not forced to login. Also, the current login program
  2724. +     supplied in init(1) does not support password aging. This may
  2725. +     change in the future.
  2726. + */
  2727. + 
  2728. + /*
  2729. +   FIXME:
  2730. +   - test *thoroughly*
  2731. +   - write example code for modifying passwd files, include below
  2732. + */  
  2733. +     
  2734.   #include <stdio.h>
  2735.   #include <pwd.h>
  2736.   #include <unistd.h>
  2737.   #include <string.h>
  2738.   #include <stdlib.h>
  2739.   
  2740. ! static char *pwdfile = "/etc/passwd"; /* default passwd file */
  2741.   
  2742.   static FILE *fp = NULL;
  2743. ! static struct passwd curentry;    /* static data to return */
  2744.   
  2745. ! static int nextent __PROTO((FILE *fp));
  2746.   
  2747. ! /* Get name from uid */
  2748. ! int getpw(uid, buf)
  2749. ! int uid;
  2750. ! char *buf;
  2751. ! {
  2752. !   FILE *pw;
  2753. !   char line[256]; /* Assume this will always be enough */
  2754. !   char *ptr;
  2755. ! 
  2756. !   if ((pw = fopen("/etc/passwd", "rt")) == NULL)
  2757. !     return(-1); /* Failure: file could not be opened */
  2758. ! 
  2759. !   line[255] = 0x00;
  2760. !   while (!feof(pw))
  2761. !   {
  2762. !     fgets(line, 255, pw);
  2763. !     if ((ptr = strchr(line, ':')) != NULL) /* Password field found */
  2764. !       if ((ptr = strchr(ptr + 1, ':')) != NULL) /* UID field found */
  2765. !         if (atoi(ptr + 1) == uid)
  2766. !         {
  2767. !           strcpy(buf, line);
  2768. !           return(0); /* Success */
  2769. !         }
  2770. !   }
  2771. !   return(-1); /* Failure */
  2772. ! } /* End of getpw() */
  2773. ! 
  2774. ! /* Set the name of the passwd file */
  2775. ! void setpwfile(cp)
  2776.   char *cp;
  2777.   {
  2778. !   endpwent();
  2779. !   if (cp != NULL)
  2780. !     pwdfile = cp;
  2781. ! } /* End of setpwfile() */
  2782. ! 
  2783. ! /* Rewind the passwd file */
  2784. ! void setpwent()
  2785. ! {
  2786. !   if (fp != NULL)
  2787. !     rewind(fp);
  2788. !   else if ((fp = fopen (pwdfile, "rt")) == NULL)
  2789. !   {
  2790.   #ifdef VERBOSE
  2791. !     fprintf (stderr, "setpwent: %s non-existant or unreadable.\n", pwdfile);
  2792.   #endif
  2793. !   }
  2794. ! } /* End of setpwent() */
  2795.   
  2796. ! /* End passwd file processing */
  2797. ! void endpwent()
  2798.   {
  2799. !   if (fp != NULL)
  2800. !   {
  2801. !     fclose (fp);
  2802. !     fp = NULL;
  2803. !   }
  2804. ! } /* End of endpwent() */
  2805.   
  2806. ! /* Get the next passwd entry from the passwd file */
  2807. ! struct passwd *getpwent()
  2808.   {
  2809. !   if (fp == NULL)
  2810. !   {
  2811. !     setpwent();
  2812. !     if (fp == NULL)
  2813. !       return(NULL);
  2814. !   }
  2815. ! 
  2816. !   if (nextent(fp) == 0)
  2817. !     return(NULL);
  2818. !   else
  2819. !     return(&curentry);
  2820. ! } /* End of getpwent() */
  2821. ! 
  2822. ! /* Get first passwd entry from file with pw_uid matching uid */
  2823. ! struct passwd *getpwuid(uid)
  2824. ! int uid;
  2825.   {
  2826. !   setpwent();
  2827. !   while (nextent(fp) != 0)
  2828. !     if (curentry.pw_uid == uid)
  2829. !       return(&curentry);
  2830. ! 
  2831. !   return(NULL);
  2832. ! } /* End of getpwuid() */
  2833. ! 
  2834. ! /* Get first passwd entry from file with pw_name matching name */
  2835. ! struct passwd *getpwnam(name)
  2836. ! const char *name;
  2837. ! {
  2838. !   setpwent();
  2839.   
  2840. !   while (nextent(fp) != 0)
  2841. !     if (strcmp(curentry.pw_name, name) == 0)
  2842. !       return(&curentry);
  2843. ! 
  2844. !   return(NULL);
  2845. ! } /* End of getpwnam() */
  2846. ! 
  2847. ! /* Read the next password structure from a given file */
  2848. ! struct passwd *fgetpwent(f)
  2849. ! FILE *f;
  2850.   {
  2851. !   if (f == NULL)
  2852. !     return(NULL); /* Failure */
  2853.   
  2854. !   if (nextent(f) != 0)
  2855. !     return(&curentry); /* Success */
  2856.   
  2857. !   return(NULL); /* Failure */
  2858. ! } /* End of fgetpwent() */
  2859.   
  2860. ! #if defined(atarist) || defined(__SOZOBON__)
  2861. ! static char savbuf[256];  /* BUFSIZ seems bigger than necessary! */
  2862.   #else
  2863.   static char savbuf[BUFSIZ];
  2864.   #endif
  2865. ! 
  2866. ! /* Static function getting next entry from passwd file */    
  2867. ! static int nextent(fp)
  2868. ! FILE *fp;
  2869.   {
  2870. !   char *cp;
  2871.   
  2872. !   if (fp == NULL)
  2873. !   {
  2874. !     setpwent();
  2875. !     if (fp == NULL)
  2876. !       return(0);
  2877. !   }
  2878. ! 
  2879. !   while (fgets(savbuf, (int)sizeof(savbuf), fp) != NULL)
  2880. !   {
  2881. !     curentry.pw_age = NULL;
  2882. ! 
  2883. !     for (cp = savbuf; ((*cp != 0x00) && (*cp != ':')); cp++)
  2884. !       ;
  2885. !     curentry.pw_name = savbuf;
  2886. !     *cp++ = 0x00;
  2887. !     curentry.pw_passwd = cp;
  2888. !     for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  2889. !       if ((*cp == ',') && (curentry.pw_age == NULL))
  2890. !       {
  2891. !         /* Password age field found */
  2892. !         *cp++ = 0x00;
  2893. !         curentry.pw_age = cp;
  2894. !       }
  2895. !     *cp++ = 0x00;
  2896. !     curentry.pw_uid = atoi(cp);
  2897. !     for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  2898. !       ;
  2899. !     *cp++ = 0x00;
  2900. !     curentry.pw_gid = atoi(cp);
  2901. !     for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  2902. !       ;
  2903. !     *cp++ = 0x00;
  2904. !     curentry.pw_gecos = cp;
  2905. !     curentry.pw_comment = cp;
  2906. !     for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  2907. !       ;
  2908. !     *cp++ = 0x00;
  2909. !     curentry.pw_dir = cp;
  2910. !     for (; ((*cp != 0x00) && (*cp != ':')); cp++)
  2911. !       ;
  2912. !     *cp++ = 0x00;
  2913. !     curentry.pw_shell = cp;
  2914. !     for (; ((*cp != 0x00) && (*cp != ':') && (*cp != '\n')); cp++)
  2915. !       ;
  2916. !     *cp = 0x00;
  2917. !     if (curentry.pw_age == NULL)
  2918. !       curentry.pw_age = cp; /* Don't return NULL, return a null string */
  2919. !     return(1);
  2920. !   }
  2921. !   return(0);
  2922. ! } /* End of nextent() */
  2923. ! 
  2924. ! /* Old test program removed - Hildo Biersma */
  2925. ! #ifdef EXAMPLE
  2926. ! 
  2927. ! /*
  2928. ! EXAMPLE PROGRAM
  2929. ! 
  2930. ! DESCRIPTION
  2931. !     Read all lines from the password file and print all users
  2932. !     with password aging info. Also print a description of
  2933. !     the meaning of the aging information of this user.
  2934. ! 
  2935. ! AUTHOR
  2936. !     Hildo Biersma (boender@dutiws.twi.tudelft.nl)
  2937. ! 
  2938. ! STATUS
  2939. !     Example code; in the public domain.
  2940. ! */
  2941. ! 
  2942. ! #include <support.h>
  2943. ! 
  2944. ! void main()
  2945. ! {
  2946. !   struct passwd *this_entry;
  2947. !   int max_age, min_age;
  2948. !   char *ptr, min[2], max[2];
  2949. !   time_t time;
  2950. !   
  2951. !   min[1] = max[1] = 0x00;
  2952. !   while ((this_entry = getpwent()) != NULL)
  2953. !     if ((this_entry->pw_age[0]) != 0x00)
  2954. !     {
  2955. !       if ((max[0] = this_entry->pw_age[0]) != 0x00)
  2956. !       {
  2957. !         max_age = (int)a64l(max);
  2958. !         if ((min[0] = this_entry->pw_age[1]) != 0x00)
  2959. !         {
  2960. !           min_age = (int)a64l(min);
  2961. !           ptr = this_entry->pw_age + 2;
  2962. !           time = a64l(ptr) * (3600L * 24 * 7); /* Seconds per week */
  2963. !         }
  2964. !         else
  2965. !           time = 0L;
  2966. !       }
  2967. !       else
  2968. !       {
  2969. !         min_age = 0;
  2970. !         time = 0L;
  2971. !       }
  2972. !       fprintf(stdout, "Name: %s, UID: %d.\n", this_entry->pw_name,
  2973. !               this_entry->pw_uid);
  2974. !       if ((max_age == 0) && (min_age == 0))
  2975. !         fprintf(stdout, "User should change password on next login.\n\n");
  2976. !       else if (min_age > max_age)
  2977. !         fprintf(stdout, "Only super-user may change password.\n\n");
  2978. !       else
  2979. !       {
  2980. !         fprintf(stdout, "Must change every %d weeks.\n", max_age);
  2981. !         fprintf(stdout, "May change every %d weeks.\n", min_age);
  2982. !         fprintf(stdout, "Last changed in week starting %s\n\n",
  2983. !                 ctime(&time));
  2984. !       }
  2985. !     }
  2986. !     
  2987. !   endpwent();
  2988. ! } /* End of main() */
  2989. ! #endif /* EXAMPLE */
  2990. ===================================================================
  2991. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/getuid.c,v
  2992. retrieving revision 1.10
  2993. diff -c -r1.10 getuid.c
  2994. *** 1.10    1993/02/18 00:00:27
  2995. --- getuid.c    1993/06/04 19:55:49
  2996. ***************
  2997. *** 67,80 ****
  2998.       return setgid(egid);
  2999.   }
  3000.   
  3001. - /* note: BSD getpgrp takes an argument, but ours doesn't */
  3002. - int getpgrp() { return __mint ? Pgetpgrp() : 0; }
  3003. - 
  3004. - int setpgrp(pid, grp)
  3005. -     int pid, grp;
  3006. - {
  3007. -     return __mint ? Psetpgrp(pid, grp) : 0;
  3008. - }
  3009. - 
  3010.   int seteuid(x) int x; { return setuid(x); }
  3011.   int setegid(x) int x; { return setgid(x); }
  3012. --- 67,71 ----
  3013. ===================================================================
  3014. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/grp.c,v
  3015. retrieving revision 1.6
  3016. diff -c -r1.6 grp.c
  3017. *** 1.6    1992/09/14 14:56:40
  3018. --- grp.c    1993/07/10 16:36:46
  3019. ***************
  3020. *** 4,129 ****
  3021.    * getpwent routines (see getpw.c).
  3022.    */
  3023.   
  3024.   #include <stdio.h>
  3025.   #include <string.h>
  3026.   #include <stdlib.h>
  3027.   #include <unistd.h>
  3028.   #include <grp.h>
  3029.   
  3030. ! static char *grpfile = "/etc/group";    /* default group file */
  3031.   static FILE *fp;
  3032.   
  3033. ! static struct group curentry;        /* static data to return */
  3034.   
  3035. ! static int nextent __PROTO((void));
  3036.   
  3037. ! void setgrent ()
  3038.   {
  3039. !     if (fp)
  3040. !         rewind (fp);
  3041. ! #ifdef atarist
  3042. !     else if ((fp = fopen (grpfile, "rt")) == NULL)
  3043. ! #else
  3044. !     else if ((fp = fopen (grpfile, "r")) == NULL)
  3045. ! #endif
  3046. !     {
  3047.   #ifdef VERBOSE
  3048. !         fprintf (stderr,
  3049. !             "setgrent: %s non-existant or unreadable.\n", grpfile);
  3050.   #endif
  3051. !     }
  3052. ! }
  3053.   
  3054. ! void endgrent ()
  3055.   {
  3056. !     if (fp)
  3057. !     {
  3058. !         fclose (fp);
  3059. !         fp = NULL;
  3060. !     }
  3061. ! }
  3062.   
  3063. ! struct group *getgrent ()
  3064.   {
  3065. !     if (!fp) setgrent();
  3066. !     if (!fp) return NULL;
  3067.   
  3068. !     if (! nextent ())
  3069. !         return (NULL);
  3070. !     else
  3071. !         return (& curentry);
  3072. ! }
  3073.   
  3074. ! struct group *getgrgid (gid)
  3075. !     int gid;
  3076.   {
  3077. !     setgrent();
  3078.   
  3079. !     while (nextent ())
  3080. !         if (curentry.gr_gid == gid)
  3081. !             return (& curentry);
  3082.   
  3083. !     return (NULL);
  3084. ! }
  3085.   
  3086. ! struct group *getgrnam (name)
  3087. ! register char *name;
  3088.   {
  3089. !     setgrent();
  3090.   
  3091. !     while (nextent ())
  3092. !         if (strcmp (curentry.gr_name, name) == 0)
  3093. !             return (& curentry);
  3094.   
  3095. !     return (NULL);
  3096. ! }
  3097.   
  3098. ! #define MAX_MEMBERS 128        /* max. number of members in a group */
  3099.   
  3100.   static char savbuf[512];
  3101.   static char *memb[MAX_MEMBERS];
  3102.   
  3103. ! static int nextent ()
  3104.   {
  3105. !     register char *cp;
  3106. !     register int i;
  3107. ! 
  3108. !     if (!fp) setgrent();
  3109. !     if (!fp) return 0;
  3110.   
  3111. !     if (fgets (savbuf, (int) sizeof(savbuf), fp) != NULL)
  3112. !     {
  3113. !         for (cp = savbuf; *cp && *cp != ':'; cp++)
  3114. !             ;
  3115. !         curentry.gr_name = savbuf;
  3116. !         *cp++ = '\0';
  3117. !         curentry.gr_passwd = cp;
  3118. !         for (; *cp && *cp != ':'; cp++)
  3119. !             ;
  3120. !         *cp++ = '\0';
  3121. !         curentry.gr_gid = atoi (cp);
  3122. !         for (; *cp && *cp != ':'; cp++)
  3123. !             ;
  3124. ! 
  3125. !         *cp++ = '\0';
  3126. ! 
  3127. !         i = 0;
  3128. !         while( *cp ) {
  3129. !             if (i >= MAX_MEMBERS-1) break;
  3130. !             memb[i++] = cp;
  3131. !             for(; *cp && *cp != ',' && *cp != '\n'; cp++)
  3132. !                 ;
  3133. !             if (*cp == '\n')
  3134. !                 *cp = 0;
  3135. !             else if (*cp)
  3136. !                 *cp++ = 0;
  3137. !         }
  3138. !         memb[i] = NULL;
  3139. !         curentry.gr_mem = memb;
  3140. !         return (1);
  3141. !     }
  3142. !     return (0);
  3143. ! }
  3144.   
  3145.   #ifdef TEST
  3146.   int
  3147. --- 4,157 ----
  3148.    * getpwent routines (see getpw.c).
  3149.    */
  3150.   
  3151. + /*
  3152. +   Revised by Hildo Biersma (boender@dutiws.twi.tudelft.nl)
  3153. +   Revision 1 (January 31, 1993): include fgetgrent()
  3154. + */
  3155. + 
  3156.   #include <stdio.h>
  3157.   #include <string.h>
  3158.   #include <stdlib.h>
  3159.   #include <unistd.h>
  3160.   #include <grp.h>
  3161.   
  3162. ! static char *grpfile = "/etc/group";  /* default group file */
  3163.   static FILE *fp;
  3164.   
  3165. ! static struct group curentry;   /* static data to return */
  3166.   
  3167. ! static int nextent __PROTO((FILE *fp));
  3168.   
  3169. ! /* Rewind the group file to allow repeated searches */
  3170. ! void setgrent()
  3171.   {
  3172. !   if (fp != NULL)
  3173. !     rewind (fp);
  3174. !   else if ((fp = fopen (grpfile, "rt")) == NULL)
  3175. !   {
  3176.   #ifdef VERBOSE
  3177. !     fprintf (stderr,
  3178. !       "setgrent: %s non-existant or unreadable.\n", grpfile);
  3179.   #endif
  3180. !   }
  3181. ! } /* End of setgrent() */
  3182.   
  3183. ! /* Close the group file when processing is complete */
  3184. ! void endgrent()
  3185.   {
  3186. !   if (fp != NULL)
  3187. !   {
  3188. !     fclose (fp);
  3189. !     fp = NULL;
  3190. !   }
  3191. ! } /* End of endgrent() */
  3192.   
  3193. ! /* Get the next group structure in the file */
  3194. ! struct group *getgrent()
  3195.   {
  3196. !   if (fp == NULL)
  3197. !     setgrent();
  3198. !   if (fp == NULL)
  3199. !     return NULL;
  3200.   
  3201. !   if (nextent(fp) == 0)
  3202. !     return(NULL);
  3203. !   else
  3204. !     return(&curentry);
  3205. ! } /* End of getgrent() */
  3206.   
  3207. ! /* Get first group with matching numerical group ID from file */
  3208. ! struct group *getgrgid(gid)
  3209. ! int gid;
  3210.   {
  3211. !   setgrent();
  3212.   
  3213. !   while (nextent(fp) != 0)
  3214. !     if (curentry.gr_gid == gid)
  3215. !       return(&curentry);
  3216.   
  3217. !   return(NULL);
  3218. ! } /* End of getgrid() */
  3219.   
  3220. ! /* Get first group with matching group name from file */
  3221. ! struct group *getgrnam(name)
  3222. ! const char *name;
  3223.   {
  3224. !   setgrent();
  3225.   
  3226. !   while (nextent(fp) != 0)
  3227. !     if (strcmp (curentry.gr_name, name) == 0)
  3228. !       return (&curentry);
  3229.   
  3230. !   return(NULL);
  3231. ! } /* End of getgrnam() */
  3232. ! 
  3233. ! /* Read the next group structure from a given file */
  3234. ! struct group *fgetgrent(f)
  3235. ! FILE *f;
  3236. ! {
  3237. !   if (f == NULL)
  3238. !     return(NULL); /* Failure */
  3239. !     
  3240. !   if (nextent(f) != 0)
  3241. !     return(&curentry); /* Success */
  3242.   
  3243. !   return(NULL); /* Failure */
  3244. ! } /* End of fgetgrent() */
  3245.   
  3246. + #define MAX_MEMBERS 128   /* max. number of members in a group */
  3247. + 
  3248.   static char savbuf[512];
  3249.   static char *memb[MAX_MEMBERS];
  3250.   
  3251. ! static int nextent(fp)
  3252. ! FILE *fp;
  3253.   {
  3254. !   register char *cp;
  3255. !   register int i;
  3256.   
  3257. !   if (fp == NULL)
  3258. !     setgrent();
  3259. !   if (fp == NULL)
  3260. !     return(0);
  3261. ! 
  3262. !   if (fgets(savbuf, (int)sizeof(savbuf), fp) != NULL)
  3263. !   {
  3264. !     for (cp = savbuf; *cp && *cp != ':'; cp++)
  3265. !       ;
  3266. !     curentry.gr_name = savbuf;
  3267. !     *cp++ = 0x00;
  3268. !     curentry.gr_passwd = cp;
  3269. !     for (; *cp && *cp != ':'; cp++)
  3270. !       ;
  3271. !     *cp++ = 0x00;
  3272. !     curentry.gr_gid = atoi (cp);
  3273. !     for (; *cp && *cp != ':'; cp++)
  3274. !       ;
  3275. ! 
  3276. !     *cp++ = 0x00;
  3277. ! 
  3278. !     i = 0;
  3279. !     while( *cp )
  3280. !     {
  3281. !       if (i >= MAX_MEMBERS-1)
  3282. !         break;
  3283. !       for (; *cp == ' '; cp++)
  3284. !         ;
  3285. !       memb[i++] = cp;
  3286. !       for(; *cp && *cp != ',' && *cp != '\n'; cp++)
  3287. !         ;
  3288. !       if (*cp == '\n')
  3289. !         *cp = 0;
  3290. !       else if (*cp)
  3291. !         *cp++ = 0;
  3292. !     }
  3293. !     memb[i] = NULL;
  3294. !     curentry.gr_mem = memb;
  3295. !     return(1);
  3296. !   }
  3297. !   return(0);
  3298. ! } /* End of nextent() */
  3299.   
  3300.   #ifdef TEST
  3301.   int
  3302. ***************
  3303. *** 131,174 ****
  3304.   int argc;
  3305.   char **argv;
  3306.   {
  3307. !     struct group *gr;
  3308. !     char **m;
  3309.   
  3310. !     if (argc > 1) {
  3311. !         grpfile = argv[1];
  3312. !     }
  3313. ! 
  3314. !     setgrent ();
  3315. !     while ((gr = getgrent ()) != NULL)
  3316. !     {
  3317. !         printf ("%s:[%s] %d\n",
  3318. !             gr->gr_name,
  3319. !             gr->gr_passwd,
  3320. !             gr->gr_gid);
  3321. !         for (m = gr->gr_mem; *m; m++) {
  3322. !             printf("\t%s\n", *m);
  3323. !         }
  3324. !     }
  3325. !     endgrent ();
  3326. ! 
  3327. !     if (gr = getgrnam ("mail")) {
  3328. !         printf ("%s:[%s] %d\n",
  3329. !             gr->gr_name,
  3330. !             gr->gr_passwd,
  3331. !             gr->gr_gid);
  3332. !         for (m = gr->gr_mem; *m; m++) {
  3333. !             printf("\t%s\n", *m);
  3334. !         }
  3335. !     }
  3336. !     if (gr = getgrgid (1)) {
  3337. !         printf ("%s:[%s] %d\n",
  3338. !             gr->gr_name,
  3339. !             gr->gr_passwd,
  3340. !             gr->gr_gid);
  3341. !         for (m = gr->gr_mem; *m; m++) {
  3342. !             printf("\t%s\n", *m);
  3343. !         }
  3344. !     }
  3345. !     return 0;
  3346.   }
  3347.   #endif
  3348. --- 159,202 ----
  3349.   int argc;
  3350.   char **argv;
  3351.   {
  3352. !   struct group *gr;
  3353. !   char **m;
  3354.   
  3355. !   if (argc > 1) {
  3356. !     grpfile = argv[1];
  3357. !   }
  3358. ! 
  3359. !   setgrent ();
  3360. !   while ((gr = getgrent ()) != NULL)
  3361. !   {
  3362. !     printf ("%s:[%s] %d\n",
  3363. !       gr->gr_name,
  3364. !       gr->gr_passwd,
  3365. !       gr->gr_gid);
  3366. !     for (m = gr->gr_mem; *m; m++) {
  3367. !       printf("\t%s\n", *m);
  3368. !     }
  3369. !   }
  3370. !   endgrent ();
  3371. ! 
  3372. !   if (gr = getgrnam ("mail")) {
  3373. !     printf ("%s:[%s] %d\n",
  3374. !       gr->gr_name,
  3375. !       gr->gr_passwd,
  3376. !       gr->gr_gid);
  3377. !     for (m = gr->gr_mem; *m; m++) {
  3378. !       printf("\t%s\n", *m);
  3379. !     }
  3380. !   }
  3381. !   if (gr = getgrgid (1)) {
  3382. !     printf ("%s:[%s] %d\n",
  3383. !       gr->gr_name,
  3384. !       gr->gr_passwd,
  3385. !       gr->gr_gid);
  3386. !     for (m = gr->gr_mem; *m; m++) {
  3387. !       printf("\t%s\n", *m);
  3388. !     }
  3389. !   }
  3390. !   return 0;
  3391.   }
  3392.   #endif
  3393. ===================================================================
  3394. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/lib.h,v
  3395. retrieving revision 1.9
  3396. diff -c -r1.9 lib.h
  3397. *** 1.9    1993/03/01 17:34:34
  3398. --- lib.h    1993/07/10 16:36:48
  3399. ***************
  3400. *** 39,46 ****
  3401.   __EXTERN time_t        _dostime __PROTO((time_t));
  3402.   __EXTERN time_t        _unixtime __PROTO((unsigned int, unsigned int));
  3403.   
  3404. - __EXTERN char *        findfile __PROTO((char *, char *, char **));
  3405. - 
  3406.   __EXTERN char *        _itoa __PROTO((int, char *, int));
  3407.   __EXTERN char *        _ltoa __PROTO((long, char *, int));
  3408.   __EXTERN char *        _ultoa __PROTO((unsigned long, char *, int));
  3409. --- 39,44 ----
  3410. ===================================================================
  3411. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/linea.c,v
  3412. retrieving revision 1.5
  3413. diff -c -r1.5 linea.c
  3414. *** 1.5    1992/10/09 20:35:29
  3415. --- linea.c    1993/07/10 16:36:49
  3416. ***************
  3417. *** 35,47 ****
  3418.   
  3419.   int linea2()                             
  3420.   {                                    
  3421.       __asm__ volatile                        
  3422.       ("
  3423.           .word   0xA002"
  3424. !     :                           /* outputs */    
  3425.       :                           /* inputs  */    
  3426.       : "d0", "d1", "d2", "a0", "a1", "a2"       /* clobbered regs */    
  3427.       );                                
  3428.   }
  3429.   
  3430.   void linea3()                             
  3431. --- 35,50 ----
  3432.   
  3433.   int linea2()                             
  3434.   {                                    
  3435. +     register long retvalue __asm__("d0");
  3436. + 
  3437.       __asm__ volatile                        
  3438.       ("
  3439.           .word   0xA002"
  3440. !     : "=r"(retvalue)                  /* outputs */    
  3441.       :                           /* inputs  */    
  3442.       : "d0", "d1", "d2", "a0", "a1", "a2"       /* clobbered regs */    
  3443.       );                                
  3444. +     return (int) retvalue;
  3445.   }
  3446.   
  3447.   void linea3()                             
  3448. ===================================================================
  3449. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/modf.cpp,v
  3450. retrieving revision 1.3
  3451. diff -c -r1.3 modf.cpp
  3452. *** 1.3    1993/05/29 20:28:48
  3453. --- modf.cpp    1993/07/13 17:03:45
  3454. ***************
  3455. *** 124,147 ****
  3456.       .globl _modf
  3457.   .even
  3458.   _modf:
  3459. -     movel    a1,a7@-            | save a1 (necessary?)
  3460.       lea    0xfffffa50:w,a0
  3461.       movew    #0x5403,a0@(comm)    | fintrz X -> fp0
  3462.       cmpiw    #0x8900,a0@(resp)    | check
  3463. !     movel    a7@(8),a0@        | load X_hi
  3464. !     movel    a7@(12),a0@        | load X_low
  3465.   
  3466.       movew    #0x5480,a0@(comm)    | X -> fp1
  3467.       .long    0x0c688900, 0xfff067f8
  3468. !     movel    a7@(8),a0@        | load X_hi
  3469. !     movel    a7@(12),a0@        | load X_low
  3470.   
  3471.   |    000 000 001 0101000        | sub fp0 -> fp1
  3472.       movew    #0x00a8,a0@(comm)    | sub fp0 -> fp1
  3473.       .word    0x4a68,0xfff0,0x6bfa    | test
  3474.   
  3475.       movew    #0x7400,a0@(comm)    | fp0 to IntPart
  3476. !     moveal    a7@(16),a1        | address of IntPart while the fpu is active
  3477.   | wait
  3478.       .long    0x0c688900, 0xfff067f8
  3479.       movel    a0@,a1@+
  3480. --- 124,146 ----
  3481.       .globl _modf
  3482.   .even
  3483.   _modf:
  3484.       lea    0xfffffa50:w,a0
  3485.       movew    #0x5403,a0@(comm)    | fintrz X -> fp0
  3486.       cmpiw    #0x8900,a0@(resp)    | check
  3487. !     movel    a7@(4),a0@        | load X_hi
  3488. !     movel    a7@(8),a0@        | load X_low
  3489.   
  3490.       movew    #0x5480,a0@(comm)    | X -> fp1
  3491.       .long    0x0c688900, 0xfff067f8
  3492. !     movel    a7@(4),a0@        | load X_hi
  3493. !     movel    a7@(8),a0@        | load X_low
  3494.   
  3495.   |    000 000 001 0101000        | sub fp0 -> fp1
  3496.       movew    #0x00a8,a0@(comm)    | sub fp0 -> fp1
  3497.       .word    0x4a68,0xfff0,0x6bfa    | test
  3498.   
  3499.       movew    #0x7400,a0@(comm)    | fp0 to IntPart
  3500. !     moveal    a7@(12),a1        | address of IntPart while the fpu is active
  3501.   | wait
  3502.       .long    0x0c688900, 0xfff067f8
  3503.       movel    a0@,a1@+
  3504. ***************
  3505. *** 151,157 ****
  3506.       .long    0x0c688900, 0xfff067f8
  3507.       movel    a0@,d0
  3508.       movel    a0@,d1
  3509. -     movel    a7@+,a1            | restore a1
  3510.        rts
  3511.   
  3512.   #endif    sfp004
  3513. --- 150,155 ----
  3514. ===================================================================
  3515. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/psignal.c,v
  3516. retrieving revision 1.5
  3517. diff -c -r1.5 psignal.c
  3518. *** 1.5    1992/06/01 01:54:10
  3519. --- psignal.c    1993/07/10 16:36:51
  3520. ***************
  3521. *** 6,11 ****
  3522. --- 6,12 ----
  3523.   #include <signal.h>
  3524.   #include <siglist.h>
  3525.   #include <string.h>
  3526. + #include <unistd.h>
  3527.   #include "lib.h"
  3528.     
  3529.   void
  3530. ===================================================================
  3531. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/putenv.c,v
  3532. retrieving revision 1.2
  3533. diff -c -r1.2 putenv.c
  3534. *** 1.2    1992/09/14 14:56:40
  3535. --- putenv.c    1993/07/10 16:36:53
  3536. ***************
  3537. *** 45,51 ****
  3538.   
  3539.   int
  3540.   putenv(strng)
  3541. !     char *strng;
  3542.   {
  3543.       int i = 0;
  3544.       char **e;
  3545. --- 45,51 ----
  3546.   
  3547.   int
  3548.   putenv(strng)
  3549. !     const char *strng;
  3550.   {
  3551.       int i = 0;
  3552.       char **e;
  3553. ***************
  3554. *** 68,74 ****
  3555.           return -1;
  3556.   
  3557.       environ = e;
  3558. !     environ[i] = strng;
  3559.       environ[i+1] = 0;
  3560.       return 0;
  3561.   }
  3562. --- 68,74 ----
  3563.           return -1;
  3564.   
  3565.       environ = e;
  3566. !     environ[i] = (char *)strng;
  3567.       environ[i+1] = 0;
  3568.       return 0;
  3569.   }
  3570. ===================================================================
  3571. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/raise.c,v
  3572. retrieving revision 1.2
  3573. diff -c -r1.2 raise.c
  3574. *** 1.2    1991/04/26 03:42:08
  3575. --- raise.c    1993/07/10 16:36:54
  3576. ***************
  3577. *** 3,8 ****
  3578. --- 3,9 ----
  3579.   */
  3580.   
  3581.   #include <unistd.h>
  3582. + #include <signal.h>
  3583.   
  3584.   int
  3585.   raise(sig)
  3586. ===================================================================
  3587. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/random.c,v
  3588. retrieving revision 1.8
  3589. diff -c -r1.8 random.c
  3590. *** 1.8    1992/09/14 14:56:40
  3591. --- random.c    1993/07/10 16:36:56
  3592. ***************
  3593. *** 189,195 ****
  3594.       unsigned        x;
  3595.   {
  3596.           register  int        i /* , j */ ;
  3597. -     long random();
  3598.   
  3599.       if(  rand_type  ==  TYPE_0  )  {
  3600.           state[ 0 ] = x;
  3601. --- 189,194 ----
  3602. ===================================================================
  3603. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/regexp.c,v
  3604. retrieving revision 1.7
  3605. diff -c -r1.7 regexp.c
  3606. *** 1.7    1993/02/18 00:00:30
  3607. --- regexp.c    1993/07/10 16:36:59
  3608. ***************
  3609. *** 591,598 ****
  3610.   
  3611.     place = opnd;            /* Op node, where operand used to be. */
  3612.     *place++ = op;
  3613. !   *place++ = '\0';
  3614. !   *place++ = '\0';
  3615.   }
  3616.   
  3617.   /*
  3618. --- 591,597 ----
  3619.   
  3620.     place = opnd;            /* Op node, where operand used to be. */
  3621.     *place++ = op;
  3622. !   *place = '\0';
  3623.   }
  3624.   
  3625.   /*
  3626. ===================================================================
  3627. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/regsup.c,v
  3628. retrieving revision 1.1
  3629. diff -c -r1.1 regsup.c
  3630. *** 1.1    1991/04/12 18:19:53
  3631. --- regsup.c    1993/07/10 16:37:01
  3632. ***************
  3633. *** 86,90 ****
  3634.           }
  3635.       }
  3636.     }
  3637. !   *dst++ = '\0';
  3638.   }
  3639. --- 86,90 ----
  3640.           }
  3641.       }
  3642.     }
  3643. !   *dst = '\0';
  3644.   }
  3645. ===================================================================
  3646. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/setjmp.cpp,v
  3647. retrieving revision 1.5
  3648. diff -c -r1.5 setjmp.cpp
  3649. *** 1.5    1992/10/09 20:35:29
  3650. --- setjmp.cpp    1993/07/10 16:37:02
  3651. ***************
  3652. *** 1,25 ****
  3653.   |
  3654.   | setjmp.cpp 
  3655.   |
  3656.       .text
  3657.       .even
  3658.       .globl _setjmp
  3659.   _setjmp:
  3660.       movel    sp@(4),a0        | address of jmp_buf[]
  3661.       movel    sp@,a0@            | save return address
  3662.       moveml    d2-d7/a2-a7,a0@(4)    | save registers d2-d7/a2-a7
  3663.       clrl    d0            | return value is 0
  3664.       rts
  3665.   
  3666.       .globl _longjmp
  3667. -     .globl ___mint
  3668. - 
  3669. - #ifdef __MBASE__
  3670. - #define Mint    __MBASE__@(___mint)
  3671. - #else
  3672. - #define Mint    ___mint
  3673. - #endif
  3674. - 
  3675.   _longjmp:
  3676.   #ifdef __MSHORT__
  3677.       tstw    Mint            | see if MiNT is active
  3678. --- 1,57 ----
  3679.   |
  3680.   | setjmp.cpp 
  3681.   |
  3682. + 
  3683. +     .globl ___mint
  3684. + 
  3685. + #ifdef __MBASE__
  3686. + #define Mint    __MBASE__@(___mint)
  3687. + #define Sigmask    __MBASE__@(__sigmask)
  3688. + #else
  3689. + #define Mint    ___mint
  3690. + #define Sigmask __sigmask
  3691. + #endif
  3692. + 
  3693.       .text
  3694.       .even
  3695. +     .globl _sigsetjmp
  3696. + _sigsetjmp:
  3697. +     movel    sp@(4), a0        | address of sigjmp_buf[]
  3698. + #ifdef __MSHORT__
  3699. +     movew    sp@(8), d0
  3700. +     extl    d0
  3701. + #else
  3702. +     movel    sp@(8), d0
  3703. + #endif
  3704. +     movel    d0, a0@(56)        | save sigmask for siglongjmp?
  3705. +     beq    SETJMP            | no -- call common code
  3706. +     movel    Sigmask, a0@(52)    | save tos emulation signal mask
  3707. + #ifdef __MSHORT__
  3708. +     tstw    Mint            | see if MiNT is active
  3709. + #else
  3710. +     tstl    Mint
  3711. + #endif
  3712. +     beq    SETJMP            | no -- call common code
  3713. +     movel    #0, sp@-        | add no signals to sigmask
  3714. +     movew    #0x116, sp@-        | Psigblock() system call
  3715. +     trap    #1            |
  3716. +     addqw    #6, sp
  3717. +     movel    d0, a0@(52)        | save MiNT signal mask
  3718. +     jmp    SETJMP            | call common code
  3719. + 
  3720.       .globl _setjmp
  3721.   _setjmp:
  3722.       movel    sp@(4),a0        | address of jmp_buf[]
  3723. +     movel    #0, a0@(56)        | do not restore sigmask on longjmp
  3724. + SETJMP:
  3725.       movel    sp@,a0@            | save return address
  3726.       moveml    d2-d7/a2-a7,a0@(4)    | save registers d2-d7/a2-a7
  3727.       clrl    d0            | return value is 0
  3728.       rts
  3729.   
  3730. +     .globl _siglongjmp
  3731. + _siglongjmp:
  3732.       .globl _longjmp
  3733.   _longjmp:
  3734.   #ifdef __MSHORT__
  3735.       tstw    Mint            | see if MiNT is active
  3736. ***************
  3737. *** 32,37 ****
  3738. --- 64,83 ----
  3739.       addqw    #2, sp
  3740.   NOMINT:
  3741.       movel    sp@(4),a0        | address of jmp_buf[]
  3742. +     tstl    a0@(56)            | want to restore sigmask?
  3743. +     beq    NORESTORE        | no -- skip restore code
  3744. +     movel    a0@(52), Sigmask    | restore tos emulation signal mask
  3745. + #ifdef __MSHORT__
  3746. +     tstw    Mint            | see if MiNT is active
  3747. + #else
  3748. +     tstl    Mint
  3749. + #endif
  3750. +     beq    NORESTORE        | no -- do not call sigsetmask
  3751. +     movel    a0@(52), sp@-        | restore signal mask
  3752. +     movew    #0x117, sp@-        | Psigsetmask() system call
  3753. +     trap    #1            |
  3754. +     addqw    #6, sp
  3755. + NORESTORE:
  3756.   #ifdef __MSHORT__
  3757.       movew    sp@(8),d0        | value to return
  3758.   #else
  3759. ===================================================================
  3760. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strerror.c,v
  3761. retrieving revision 1.6
  3762. diff -c -r1.6 strerror.c
  3763. *** 1.6    1993/03/01 17:34:39
  3764. --- strerror.c    1993/07/10 16:37:03
  3765. ***************
  3766. *** 94,100 ****
  3767.       "name too long",            /* 86 */
  3768.       "not a tty",                /* 87 */
  3769.       "range error",                /* 88 */
  3770. !     "domain error"                /* 89 */
  3771.       };
  3772.   
  3773.   int    sys_nerr = (int)(sizeof(sys_errlist)/sizeof(sys_errlist[0]));
  3774. --- 94,102 ----
  3775.       "name too long",            /* 86 */
  3776.       "not a tty",                /* 87 */
  3777.       "range error",                /* 88 */
  3778. !     "domain error",                /* 89 */
  3779. !     "I/O error",                /* 90 */
  3780. !     "disk full"                /* 91 */
  3781.       };
  3782.   
  3783.   int    sys_nerr = (int)(sizeof(sys_errlist)/sizeof(sys_errlist[0]));
  3784. ===================================================================
  3785. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strlwr.c,v
  3786. retrieving revision 1.3
  3787. diff -c -r1.3 strlwr.c
  3788. *** 1.3    1993/03/01 17:34:43
  3789. --- strlwr.c    1993/07/10 16:37:05
  3790. ***************
  3791. *** 1,4 ****
  3792. --- 1,5 ----
  3793.   #include <ctype.h>
  3794. + #include <string.h>
  3795.   
  3796.   char *strlwr(string)
  3797.   register char *string;
  3798. ===================================================================
  3799. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strrev.c,v
  3800. retrieving revision 1.2
  3801. diff -c -r1.2 strrev.c
  3802. *** 1.2    1989/03/25 02:43:09
  3803. --- strrev.c    1993/07/10 16:37:06
  3804. ***************
  3805. *** 4,9 ****
  3806. --- 4,11 ----
  3807.    * please change mktemp.c too (it assumes rev is in-place)
  3808.    */
  3809.   
  3810. + #include <string.h>
  3811. + 
  3812.   char *strrev(string)
  3813.       char *string;
  3814.       {
  3815. ===================================================================
  3816. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/strupr.c,v
  3817. retrieving revision 1.2
  3818. diff -c -r1.2 strupr.c
  3819. *** 1.2    1993/03/01 17:34:47
  3820. --- strupr.c    1993/07/10 16:37:07
  3821. ***************
  3822. *** 1,5 ****
  3823. --- 1,6 ----
  3824.   /* hohmuth 1-Nov-92, derived from strlwr.c */
  3825.   #include <ctype.h>
  3826. + #include <string.h>
  3827.   
  3828.   char *strupr(string)
  3829.   register char *string;
  3830. ===================================================================
  3831. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/sysvar.c,v
  3832. retrieving revision 1.3
  3833. diff -c -r1.3 sysvar.c
  3834. *** 1.3    1992/09/14 14:56:40
  3835. --- sysvar.c    1993/07/10 16:37:08
  3836. ***************
  3837. *** 8,14 ****
  3838.       long ret;
  3839.       long save_ssp;
  3840.       
  3841. !     save_ssp = Super(0L);
  3842.       /* note: dont remove volatile, otherwise gcc will reorder these
  3843.          statements and we get bombs
  3844.        */
  3845. --- 8,14 ----
  3846.       long ret;
  3847.       long save_ssp;
  3848.       
  3849. !     save_ssp = (long) Super((void *) 0L);
  3850.       /* note: dont remove volatile, otherwise gcc will reorder these
  3851.          statements and we get bombs
  3852.        */
  3853. ***************
  3854. *** 24,30 ****
  3855.   {
  3856.       long save_ssp;
  3857.       
  3858. !     save_ssp = Super(0L);
  3859.       *((volatile long *)var) = val;
  3860.       (void)Super((void *) save_ssp);
  3861.   }
  3862. --- 24,30 ----
  3863.   {
  3864.       long save_ssp;
  3865.       
  3866. !     save_ssp = (long) Super((void *) 0L);
  3867.       *((volatile long *)var) = val;
  3868.       (void)Super((void *) save_ssp);
  3869.   }
  3870. ===================================================================
  3871. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/textio.c,v
  3872. retrieving revision 1.5
  3873. diff -c -r1.5 textio.c
  3874. *** 1.5    1992/10/09 20:35:29
  3875. --- textio.c    1993/07/10 16:37:10
  3876. ***************
  3877. *** 11,16 ****
  3878. --- 11,17 ----
  3879.   
  3880.   #include <stdio.h>
  3881.   #include <unistd.h>
  3882. + #include <support.h>
  3883.   
  3884.   int
  3885.   _text_read(fd, buf, nbytes)
  3886. ***************
  3887. *** 39,45 ****
  3888.   int
  3889.   _text_write(fd, from, nbytes)
  3890.       int fd;
  3891. !     char *from;
  3892.       int nbytes;
  3893.   {
  3894.   #ifdef __SOZOBON__
  3895. --- 40,46 ----
  3896.   int
  3897.   _text_write(fd, from, nbytes)
  3898.       int fd;
  3899. !     const char *from;
  3900.       int nbytes;
  3901.   {
  3902.   #ifdef __SOZOBON__
  3903. ===================================================================
  3904. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/timeoday.c,v
  3905. retrieving revision 1.2
  3906. diff -c -r1.2 timeoday.c
  3907. *** 1.2    1992/09/14 14:56:40
  3908. --- timeoday.c    1993/07/10 16:37:11
  3909. ***************
  3910. *** 51,57 ****
  3911.   
  3912.       tp->time = t;
  3913.       tp->millitm = 0;
  3914. !     tp->timezone = _timezone / 60;
  3915.       tp->dstflag = (_dst) ? 1 : 0;
  3916.   
  3917.       return 0;
  3918. --- 51,57 ----
  3919.   
  3920.       tp->time = t;
  3921.       tp->millitm = 0;
  3922. !     tp->timezone = (int)(_timezone / 60);
  3923.       tp->dstflag = (_dst) ? 1 : 0;
  3924.   
  3925.       return 0;
  3926. ===================================================================
  3927. RCS file: /net/acae127/home/bammi/etc/src/master/atari/co/utime.c,v
  3928. retrieving revision 1.11
  3929. diff -c -r1.11 utime.c
  3930. *** 1.11    1992/09/14 14:56:40
  3931. --- utime.c    1993/06/04 19:55:54
  3932. ***************
  3933. *** 16,21 ****
  3934. --- 16,29 ----
  3935.   #include <time.h>
  3936.   #include <errno.h>
  3937.   #include <osbind.h>
  3938. + #include <mintbind.h>
  3939. + #ifndef __MINT__
  3940. + #  define __MINT__
  3941. + #  include <ioctl.h>
  3942. + #  undef __MINT__
  3943. + #else
  3944. + #  include <ioctl.h>
  3945. + #endif
  3946.   #include <assert.h>
  3947.   #ifdef __TURBOC__
  3948.   #include <sys\types.h>
  3949. ***************
  3950. *** 24,35 ****
  3951.   #endif
  3952.   #include "lib.h"
  3953.   
  3954. ! time_t dostime __PROTO((time_t t));
  3955.   
  3956.   /* convert a Unix time into a DOS time. The longword returned contains
  3957.      the time word first, then the date word */
  3958.   
  3959. ! time_t dostime(t)
  3960.       time_t t;
  3961.   {
  3962.           time_t time, date;
  3963. --- 32,46 ----
  3964.   #endif
  3965.   #include "lib.h"
  3966.   
  3967. ! extern int __mint;
  3968. ! 
  3969. ! time_t _dostime __PROTO((time_t t));
  3970.   
  3971.   /* convert a Unix time into a DOS time. The longword returned contains
  3972.      the time word first, then the date word */
  3973.   
  3974. ! time_t
  3975. ! _dostime(t)
  3976.       time_t t;
  3977.   {
  3978.           time_t time, date;
  3979. ***************
  3980. *** 49,71 ****
  3981.         const struct utimbuf *tset;
  3982.   {
  3983.       int fh;
  3984. !     time_t settime;
  3985.       unsigned long dtime;    /* dos time equivalent */
  3986.       char filename[PATH_MAX];
  3987.   
  3988.       if (tset)
  3989. !         settime = tset->modtime;
  3990.       else
  3991. !         time(&settime);
  3992.   
  3993.       (void)_unx2dos(_filename, filename);
  3994. !     dtime = dostime(settime);    /* convert unix time to dos */
  3995.       fh = (int) Fopen(filename, 2);
  3996.       if (fh < 0) {
  3997.           errno = -fh;
  3998.           return -1;
  3999.       }
  4000. !     (void)Fdatime((_DOSTIME *) &dtime, fh, 1);
  4001.       if ((fh = Fclose(fh)) != 0) {
  4002.           errno = -fh;
  4003.           return -1;
  4004. --- 60,104 ----
  4005.         const struct utimbuf *tset;
  4006.   {
  4007.       int fh;
  4008. !     time_t actime, modtime;
  4009.       unsigned long dtime;    /* dos time equivalent */
  4010. +     
  4011.       char filename[PATH_MAX];
  4012. +     struct _mutimbuf settime;
  4013. +     long res;
  4014.   
  4015.       if (tset)
  4016. !     {
  4017. !         modtime = tset->modtime;
  4018. !         actime = tset->actime;
  4019. !     }
  4020.       else
  4021. !     {
  4022. !         time(&actime);
  4023. !         modtime = actime;
  4024. !     }
  4025.   
  4026.       (void)_unx2dos(_filename, filename);
  4027. ! 
  4028. !     dtime = _dostime(actime);
  4029. !     settime.actime = (unsigned short) ((dtime >> 16) & 0xFFFF);
  4030. !     settime.acdate = (unsigned short) (dtime & 0xFFFF);
  4031. !     dtime = _dostime(modtime);
  4032. !     settime.modtime = (unsigned short) ((dtime >> 16) & 0xFFFF);
  4033. !     settime.moddate = (unsigned short) (dtime & 0xFFFF);
  4034.       fh = (int) Fopen(filename, 2);
  4035.       if (fh < 0) {
  4036.           errno = -fh;
  4037.           return -1;
  4038.       }
  4039. ! 
  4040. !     res = -EINVAL;
  4041. !     if (__mint > 90)
  4042. !         res = Fcntl(fh, (long)&settime, FUTIME);
  4043. ! 
  4044. !     if (res == -EINVAL)
  4045. !         (void)Fdatime((_DOSTIME *) &dtime, fh, 1);
  4046. ! 
  4047.       if ((fh = Fclose(fh)) != 0) {
  4048.           errno = -fh;
  4049.           return -1;
  4050. ***************
  4051. *** 80,86 ****
  4052.       unsigned date, time;
  4053.   
  4054.       assert(t != 0);
  4055. !     dtime = dostime(*t);
  4056.       date = (int) (dtime & 0xffff);
  4057.       time = (int) (dtime >> 16) & 0xffff;
  4058.   
  4059. --- 113,119 ----
  4060.       unsigned date, time;
  4061.   
  4062.       assert(t != 0);
  4063. !     dtime = _dostime(*t);
  4064.       date = (int) (dtime & 0xffff);
  4065.       time = (int) (dtime >> 16) & 0xffff;
  4066.   
  4067.